CodeItBetter Programming Another VB Programming Blog

'Controls - How to allow users to increase and decrease the value using Up and Down arrow keys in a text box
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            Text1.Text = CDbl(Text1.Text) + 1
        Case vbKeyDown
            Text1.Text = CDbl(Text1.Text) - 1
    End Select
End Sub