ถ้าผู้ใช้พิม อักษรพิเศษมาจะเด้งข้อความเตือน แต่ปัญหาคือถ้ามีอักษรภาษาอังกฤษเข้ามาก่อนแล้วตามตัวภาษาไทย มันไม่ขึ้นข้อความเตือนอ่ะคับ
Dim ChkUser As Match = Regex.Match(TxbUsername.Text, "[0-9A-Za-z]+")
If ChkUser.Success Then
Else
MsgBox("UserName ใช้ได้แค่เฉพาะ A-Z a-z 0-9 เท่านั้น", MsgBoxStyle.OkOnly)
TxbUsername.Text = ""
End If