Module mdStart
 
    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