Private Sub sevText1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 58 ' Doppelpunkt (keyascii=58) nicht zulassen
            KeyAscii = 0
        Case 97 To 123 ' Kleinbuchstaben zu Großbuchstaben machen
            KeyAscii = KeyAscii - 32
    End Select
End Sub

Gru? aus Oberhausen, Salvatore

---

Man braucht nur mit Liebe einer Sache nachzugeben,
so gesellt sich das Gl?ck hinzu. (Johannes Trojan)