Private Sub MiTextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles MiTextBox.KeyDown
Select Case e.KeyCode
Case Keys.Left, Keys.Right, Keys.Home, Keys.End, Keys.Next, Keys.PageUp, Keys.Up, Keys.Down ' lista de las teclas a ignorar
e.Handled = True
Exit Sub
End Select
End Sub