Private Const WM_KEYDOWN = &H100

 

Protected Overrides Function ProcessKeyPreview(ByRef m As System.Windows.Forms.Message) As Boolean

Dim keyCode As Keys = CType(m.WParam.ToInt32() And Keys.KeyCode, Keys)

If m.Msg = WM_KEYDOWN And keyCode = Keys.Enter Then

SendKeys.Send("{TAB}")

Return True

End If

Return MyBase.ProcessKeyPreview(m)

End Function