Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Asc(e.KeyReturn) = 13 Then 'สำหรับเมื่อกด Enter แล้วเคอร์เซอร์ไปปรากฏในช่อง txt 2
e.Handleds = True
If TextBox1.Text = "" Then
MessageBox.Show("กรุณาป้อนข้อมูลในช่อง txt1 ก่อนค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
TextBox2.Focus()
End If
End If
End Sub