Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    Select Case e.KeyCode
        Case Keys.A, Keys.B, Keys.C
            'allowed
        Case Else
            'not allowed
            e.SuppressKeyPress = True
    End Select
End Sub