This is the exact code I need, but I require for a Combo Box. Is there a straight forward modification I can do to the code to make the Combobox scroll? Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Call HookListBox(Me.ComboBox1) End Sub Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Call HookListBox(Me.ListBox1) End Sub