Private Sub Form_Load()
 
' Bildschirmauflösung ermitteln
  Dim xRes As Long
  Dim yRes As Long
 
 ' x und y Auflösung
  xRes = Screen.Width / Screen.TwipsPerPixelX
  yRes = Screen.Height / Screen.TwipsPerPixelY
 
  ' Prüfen, ob Auflösung mind. 1280x1024 beträgt
  With Screen
    If .Width / .TwipsPerPixelX < 1280 Or _
      .Height / .TwipsPerPixelY < 1024 Then
 
      MsgBox "ACHTUNG!" & vbCrLf & "Diese Anwendung erfordert " & _
        "eine Bildschirmauflösung von mind. 1280x1024 Pixel!"
      End
    End If
  End With
End Sub