Class StartClass
    Shared Sub Main(ByVal args() As String)
        If Not System.Diagnostics.Process.GetProcessesByName( _
          System.Reflection.Assembly.GetExecutingAssembly.GetName.Name).Length _
          > 1 Then
            Application.Run(New Form1)
        End If
    End Sub
End Class