Alıntıdır
Yaptığımız projelerin daha profesyonel olması için .....
Numpadde bulunan + ve - tuşları ile tarihleri veya sayıları artırıp azaltabilmek için ...
her hangi bir kontrolün key pressed bölümüne şu kodlar yazılır

Select Case KeyAscii
Case 43 ' +
KeyAscii = 0
Screen.ActiveControl = Screen.ActiveControl + 1
Case 45 ' -
KeyAscii = 0
Screen.ActiveControl = Screen.ActiveControl - 1
End Select