利用委拖来实现多控件回车跳转

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each OBJCON As Control In Me.Controls
            AddHandler OBJCON.KeyPress, AddressOf ComboBox1_KeyPress
        Next
    End Sub


 Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            Me.SelectNextControl(sender, True, True, True, True)
        End If
    End Sub