Private Sub txtbox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtbox1.KeyPress
'只能輸入字母
If Char.IsLetter(e.KeyChar) = True Or Char.IsControl(e.KeyChar) = True Then
e.Handled = False
Else
e.Handled = True
End If
End Sub