'デスクトップサイズ取得関係のAPIの宣言
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowRect Lib "user32" _
                          (ByVal hWnd As Long, lpRect As RECT) As Long
Private Type RECT
  x1 As Long
  y1 As Long
  x2 As Long
  y2 As Long
End Type

Dim r As RECT
Dim hWnd As Long
Dim lngWidth As Long
Dim lngHeight As Long

hWnd = GetDesktopWindow()

GetWindowRect hWnd, r

lngWidth = r.x2 - r.x1
lngHeight = r.y2 - r.y1

MsgBox "ディスプレイの解像度は " & lngWidth & "×" & lngHeight

If lngWidth < 1024 Or lngHeight < 768 Then
  MsgBox "この解像度ではフォーム全体が表示されません！" & _
          vbCrLf & _
          "1024×768以上でお使いください。", _
          vbOKOnly + vbInformation
End If