tastatur indeling Character

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then
    slet = True
ElseIf KeyAscii > 31 And KeyAscii < 127 Then
    tilfoej = True
ElseIf KeyAscii = 145 Or KeyAscii = 146 Then
    tilfoej = True
ElseIf KeyAscii > 159 And KeyAscii <= 255 Then
    tilfoej = True
Else
    ingenting = True
End If

End Sub

det er vist nok noget i denne stil
kan ikke huske hvad delete er (hvis nok 41 eller 43)
og den kommer hvis nok kun frem hvis man bruger en Sub Text1_KeyPress(KeyAscii ) eller en Sub Text1_KeyDown(Keycode)

du kan jo pröve dig frem

De er allesammen oprettet som const

vbKeyBack=8
vbKeySpace = 32
vbKeyF16 = 127
vbKeyDelete = 46

/Peik

nå ja, der jo noget der hedder vbkey :-)