' HANDLE THE BUTTON CLICK EVENT FOR KEYS WITH CHARACTERS
Private Sub CharacterButtons_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BackTickBTN.Click, _
OneBTN.Click, TwoBTN.Click, ThreeBTN.Click, FourBTN.Click, _
FiveBTN.Click, SixBTN.Click, SevenBTN.Click, EightBTN.Click, _
NineBTN.Click, ZeroBTN.Click, HyphenBTN.Click, EqualsBTN.Click, _
QBTN.Click, WBTN.Click, EBTN.Click, RBTN.Click, TBTN.Click, _
YBTN.Click, UBTN.Click, IBTN.Click, OBTN.Click, PBTN.Click, _
LbracketBTN.Click, RbracketBTN.Click, BackSlashBTN.Click, _
ABTN.Click, SBTN.Click, DBTN.Click, FBTN.Click, GBTN.Click, _
HBTN.Click, JBTN.Click, KBTN.Click, LBTN.Click, SemiColonBTN.Click, _
ApostropheBTN.Click, ZBTN.Click, XBTN.Click, CBTN.Click, _
VBTN.Click, BBTN.Click, NBTN.Click, MBTN.Click, CommaBTN.Click, _
PeriodBTN.Click, FwdSlashBTN.Click
' RAISE THE KEYBOARDKEYPRESSED EVENT AND SEND THE CHARACTER IN THE BUTTON'S TEXT
RaiseEvent KeyboardKeyPressed(sender, New KeyboardKeyPressEventArgs(CChar(DirectCast(sender, System.Windows.Forms.Button).Text)))
' RESET THE SHIFT BOOLEAN IF A KEY IS PRESSED
_Shift = False
ShiftOff()
End Sub
' HANDLE THE BUTTON CLICK EVENT FOR THE BACKSPACE BUTTON
Private Sub BackSpaceBTN_Click(sender As Object, e As EventArgs) Handles BackSpaceBTN.Click
' RAISE THE KEYBOARDKEYPRESSED EVENT AND SEND THE CHARACTER IN THE BUTTON'S TEXT
RaiseEvent KeyboardKeyPressed(sender, New KeyboardKeyPressEventArgs(Microsoft.VisualBasic.ChrW(System.Windows.Forms.Keys.Back)))
' RESET THE SHIFT BOOLEAN IF A KEY IS PRESSED
_Shift = False
ShiftOff()
End Sub
' HANDLE THE BUTTON CLICK EVENT FOR THE ENTER BUTTON
Private Sub EnterBTN_Click(sender As Object, e As EventArgs) Handles EnterBTN.Click
' RAISE THE KEYBOARDKEYPRESSED EVENT AND SEND THE CHARACTER IN THE BUTTON'S TEXT
RaiseEvent KeyboardKeyPressed(sender, New KeyboardKeyPressEventArgs(Microsoft.VisualBasic.ChrW(System.Windows.Forms.Keys.Return)))
' RESET THE SHIFT BOOLEAN IF A KEY IS PRESSED
_Shift = False
ShiftOff()
End Sub
' HANDLE THE BUTTON CLICK EVENT FOR THE SPACEBAR BUTTON
Private Sub SpaceBTN_Click(sender As Object, e As EventArgs) Handles SpaceBTN.Click
' RAISE THE KEYBOARDKEYPRESSED EVENT AND SEND THE CHARACTER IN THE BUTTON'S TEXT
RaiseEvent KeyboardKeyPressed(sender, New KeyboardKeyPressEventArgs(Microsoft.VisualBasic.ChrW(System.Windows.Forms.Keys.Space)))
' RESET THE SHIFT BOOLEAN IF A KEY IS PRESSED
_Shift = False
ShiftOff()
End Sub
