[VB6] Controllo caratteri immessi in TextBox

[zoodany]

Salve...
Ho un textbox in cui vorrei che si potessero immettere solo valori numerici, e contemporaneamente aumentare di 1 il valore del textbox alla pressione della freccia verso l'alto e diminuirlo di 1 alla pressione della freccia verso il basso.

Ho scritto questo:

Private Sub txtrit_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case vbKeyUp: txtrit.Text = txtrit.Text + 1
        Case vbKeyDown: txtrit.Text = txtrit.Text - 1
        Case Is < 32
        Case 48 To 57
        Case Else
            KeyAscii = 0
    End Select
End Sub

ma non mi aumenta o diminuisce il valore alla pressione delle frecce e, correttaemnte, mi impedisce di inserire cose diverse dai numeri.

Ho provato allora così:

Private Sub txtrit_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp: txtrit.Text = txtrit.Text + 1
        Case vbKeyDown: txtrit.Text = txtrit.Text - 1
        Case Is < 32
        Case 48 To 57
        Case Else
            KeyCode = 0
    End Select
End Sub

ma fa esattamente il contrario, cioè mi aumenta e diminuisce il valore premendo le frecce ma mi fa inserire qualsiasi carattere, anche non numeri..

Come lo risolvo?

Grazie mille...

[Alarico_Re]

ciao zoodany ,
prova con questo
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = CkDgtNumber(KeyAscii, 0, 9)

End Sub

Alarico_Re

[oregon]

Usa di tutte e due i codici, le parti che ti servono

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case Is < 32
        Case 48 To 57
        Case Else
            KeyAscii = 0
    End Select
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp:
            Text1.Text = Text1.Text + 1
        Case vbKeyDown:
            Text1.Text = Text1.Text - 1
    End Select
End Sub

(Per Alarico_Re: CkDgtNumber e' una funzione di cui dovresti dare il codice ... non e' di VB, e senza il codice non basta inserirla nella KeyPress ...)

[zoodany]

Risolto!
Grazie mille!!