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)

�

�