Dim PasswordDlg As Dialog1 = New Dialog1() If PasswordDlg.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then Application.Exit() Return End If