04. Пример показывает Вам как определить разрешение экрана окна формы.
Private Declare Function apiGetSystemMetrics Lib "user32" Alias "GetSystemMetrics" _
(ByVal nIndex As Long) As Long
'==============================================================
' Получить разрешение экрана
Private Sub кнОткрыть_Click()
Me.myMemo.Caption = "Разрешение по X: " _
apiGetSystemMetrics(0) vbCrLf
Me.myMemo.Caption = Me.myMemo.Caption _
"Разрешение по Y: " _
apiGetSystemMetrics(1)
End Sub