VB6-MouseWheel With Any Control

[darki]

Your solution is better!

I wrote one universal MouseWheel function for all forms. Sometimes controls are disabled like Textbox and .setFocus crashed.

'added frm, just different solution
Public Sub MouseWheel(frm As Form, ByVal MouseKeys As Long, ByVal Rotation As Long, ByVal Xpos As Long, ByVal Ypos As Long)
 
For Each ctl In frm.Controls
'...