Private Shared Sub ShowLoginAndInitMainForm(ByVal e As ShowLoginAndInitFormEventArgs)



e.ShowMainForm = True





End Sub

Private Sub MKSBaseAppWithSecurity_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



Me.Visible = False

Dim ll_success_login As Boolean = False





Login.LoginFormType = GetType(MKSBaseLoginForm)



#If DEBUG Then

Login.SetLoggedInUser("supervisor", "mks", "")

ll_success_login = True

#Else

ll_success_login = Login.ShowLoginAndAuthUser(True)

#End If







If ll_success_login Then

then do something like enable all controls

Else

then do something like disable all controls

End If





Me.Visible = True



End Sub