MultiPage1_MouseMove

[Ashaar]

Bonjour le forum,

Pour sélectionner les onglets d'un contrôle MultiPage directement en déplaçant la souris j'ai calculé la position X et Y des onglets.

Mais si je voulais changer la largeur des onglets je devrai recalculer mes bornes X.

N'y aurait il pas un peu plus simple ?

Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 39 And Y < -0.75 Then MultiPage1.Value = 0
If X > 39 And X < 71 And Y < -0.75 Then MultiPage1.Value = 1
If X > 71 And X < 98 And Y < -0.75 Then MultiPage1.Value = 2
Me.Repaint
End Sub

Merci.