Programme, die etwas größere Formen haben und nur
    ab der Auflösung 800*600 komplett sichtbar sind,
    machen einen guten Eindruck, wenn zumindest eine
    entsprechende Warnung erfolgt, wenn die aktuell eingestellte
    Auflösung kleiner als erforderlich ist.

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

FORM-CODE

   Private Declare Function GetSystemMetrics Lib "User32" _
      (ByVal nIndex As Long) As Long

   Private Sub Auflösung() 
      'horizontal
      h =    GetSystemMetrics(0)
      'vertikal
      v = GetSystemMetrics(1)
      Auflösung=Str$(h) + "*" + Str$(v)
   End Sub

   Private Sub Command1_Click()
      Msgbox "Ihre Auflösung: " & Auflösung()
   End Sub

      Eine weitere Möglichkeit, ohne API-Funktion:

   h=Screen.Width \ Screen.TwipsPerPixelX 
   v=Screen.Height \ Screen.TwipsPerPixelY 
   MsgBox "Auflösung: " + Str$(h) + "*" + Str$(v)