Private Sub MsGrd_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs)
Dim KeyCode As Short = Asc(eventArgs.KeyChar)
If KeyCode = ENTER_KEY Then
If MsGrd.Col = 6 Then
MsGrd.Row = MsGrd.Row + 1
MsGrd.Col = 5
eventArgs.Handled = True
Else
MsGrd.Col = MsGrd.Col + 1
eventArgs.Handled = True
End If
End If
End Sub