1
2
3
4
5
6
7
8
9
10
11
|
Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTo.KeyPress
Try
If e.KeyChar = Chr(13) Then
SendKeys.Send("{tab}")
e.Handled = True
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Sorry, an error occured", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
|