allora togli la condizione per il controllo dell'hWnd, così la rotellina sarà attiva per qualsiasi posizione abbia il mouse...

in pratica:

codice:
Private Sub WheelCatcher1_WheelRotation(Rotation As Long, X As Long, Y As Long, CtrlHwnd As Long)
Dim ActValue As Integer
Dim Increm As Integer

ActValue = VScroll1.Value
Increm = VScroll1.SmallChange * Rotation

If ActValue - Increm < VScroll1.Min Then VScroll1.Value = VScroll1.Min: Exit Sub
If ActValue - Increm > VScroll1.Max Then VScroll1.Value = VScroll1.Max: Exit Sub
VScroll1.Value = ActValue - Increm

End Sub
Boolean