Den Code in der Userform ergänzt du um das Ereignis MouseMove für jede Combobox.
In ein allgemeines Modul den Code vom Ende des o.g.Links *)
Im Code in der Userform z.B.
Private Sub comboBox1_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
UnhookListBoxScroll
HookListBoxScroll Me, Me.ComboBox1
End Sub
Am besten beim Schließen der Userform noch QueryClose für ein endgültiges Unhook adaptieren
*) wobei FindWindow kannst du dir ev. sparen
|