09/09/22 19:54:35 XhYjg7Vb
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set MonSet = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor Where Status='OK'")
For Each Mon In MonSet
MesStr = MesStr & "モニタ名：" & Mon.Name & vbCrLf & _
"解像度：" & Mon.ScreenWidth & "x" & Mon.ScreenHeight & vbCrLf & vbCrLf
Next
MsgBox MesStr
もう１回これでやってみて、下の解像度が表示されていない方が消えたかな？