Private Sub FormMain_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown Select Case e.KeyCode Case System.Windows.Forms.Keys.D1 lbl1.Text = lblBell1.Text + 1 Case System.Windows.Forms.Keys.D2 lbl2.Text = lblBell2.Text + 1 Case System.Windows.Forms.Keys.D3 lbl3.Text = lblBell3.Text + 1 End Select