Public Class UserLogin Dim WithEvents Press As TextBoxBase Private Sub CmdOK_Click(sender As Object, e As EventArgs) Handles cmdOK.Click On Error GoTo OT_Handle_Error Dim sProcedureName As String = "CmdOK_Click" Title.Show() Close() Exit Sub OT_Handle_Error: ReportFrom("OpenCompany", sProcedureName) End Sub Private Sub CmdCancel_Click(sender As Object, e As EventArgs) Handles cmdCancel.Click On Error GoTo OT_Handle_Error Dim sProcedureName As String = "CmdCancel_Click" Title.Show() Close() Exit Sub OT_Handle_Error: ReportFrom("OpenCompany", sProcedureName) End Sub Private Sub txtUserName_KeyPressed(sender As Object, e As EventArgs) Handles txtUserName.Press End Sub End Class
Private Sub txtUserName_KeyPressed(sender As Object, e As EventArgs) Handles txtUserName.Press
TextBox
Press
KeyPress
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)