UN BEAU MENU DÉROULANT GRAPHIQUE STYLE INTERNET

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Si on passe au dessus de l'image aide le timer se met en route

If 0 < X < 1260 Then
    
    Timer1.Enabled = True
    
Else
    Timer1.Enabled = False
End If

End Sub

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Traitement lorsque l'on clique sur l'image déroulée
If Button = 1 Then
 
   
   If Y > 0 And Y < 285 Then
        MsgBox "Aide User"
       ElseIf Y > 345 And Y < 645 Then
        MsgBox "Aide Technique"
           
       ElseIf Y > 660 And Y < 870 Then
           MsgBox "A propos"
   End If
    
End If

End Sub


Private Sub Form_Load()
Image3.Height = 0
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.Height = 0
End Sub

Private Sub Image4_Click()
Unload Me
End Sub


Private Sub Timer1_Timer()
'On déroule par pas de 100
Image3.Height = Image3.Height + 100
If Image3.Height > 870 Then
    'On arrive à la taille de l'image donc on arrète de dérouler
    Timer1.Enabled = False
End If


End Sub