Private Function mmks_authorization(ByVal tcLogin As String, ByVal tcPassword As String, ByVal tcMandator As String) As Login.LoginResult Dim loResult As MicroFour.StrataFrame.Security.Login.LoginResult = Login.LoginResult.Failure Try loResult = MicroFour.StrataFrame.Security.Login.SetLoggedInUser(tcLogin, tcPassword, "") ' Login to server Catch ex As Exception mmks_ShowNotification(ex.Message) End Try.................