Private Sub CbxRayon_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CbxRayon.DropDown
End Sub
Private Sub CbxType_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CbxType.DropDown
End Sub
Private Sub CbxArticle_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CbxArticle.DropDown
End Sub