Module Module1
  Public Enum Form
    Form1
    Form2
  End Enum
 
  Public FormState As Form
 
  Sub Main()
    Dim nScreenWidth As Integer
 
    With Screen.PrimaryScreen.Bounds
      nScreenWidth = .Width
    End With
 
    If (nScreenWidth <= 1024) Then
      FormState = Form.Form1
      Application.Run(New Form1)
    Else
      FormState = Form.Form2
      Application.Run(New Form2)
    End If
  End Sub
 
End Module

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de