Hola,
gracias por la respuesta. Pero ya probé eso anteriormente y tampoco funcionaba.
Al final ya encontré la solución:
Ejemplo
Código:
Private Sub miControl_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles miControl.KeyDown
If e.Modifiers = Keys.Shift Then
If e.KeyCode = Keys.Enter Then funcionY ()
Else
If e.KeyCode = Keys.Enter Then funcionX ()
End If
End Sub
saludos