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)