Public Shared Sub Main(ByVal args As String()) '' Instantiate the Application object App = New AppWPF() '' Set the ShowInTaskbar default mmAppWPF.WindowManager.ShowInTaskbarDefault = ShowWindowsInTaskbarDefault Dim Result As Nullable(Of Boolean) = True '''' Uncomment this code to display the login window ''Dim LoginWindow As UserLoginWindow = New UserLoginWindow() ''Result = LoginWindow.ShowDialog() If Result = True Then Dim App As Application = New Application() Dim appWrapper As mmApplicationWrapper = New mmApplicationWrapper(App, mainWindow, IsSingleInstance) '' Instantiate the main application window mainWindow = New MainWindow() '' Log any unhandled exceptions AddHandler appWrapper.Application.DispatcherUnhandledException, AddressOf UnhandledExceptionHandler '' If IsSingleInstance is true, activates the current instance of the '' application rather than running multiple instances AddHandler appWrapper.StartupNextInstance, AddressOf StartupNextInstanceHandler appWrapper.Run(args) End If End Sub