and the fix is:
VB Code:
  1. Public Sub MouseWheel(ByVal MouseKeys As Long, ByVal Rotation As Long, ByVal Xpos As Long, ByVal Ypos As Long)
  2.   Dim ctl As Control, cContainerCtl As Control
  3.   Dim bHandled As Boolean
  4.   Dim bOver As Boolean
  5.  
  6.   For Each ctl In Controls
  7.   '
  8.   '
  9.        ' change this case
  10.         Case TypeOf ctl Is PictureBox, TypeOf ctl Is Frame
  11.           Set cContainerCtl = ctl: bHandled = False
  12.   '
  13.   '
  14.   Next ctl
  15.  
  16.   If Not cContainerCtl Is Nothing Then
  17.     If TypeOf cContainerCtl Is PictureBox Then PictureBoxZoom cContainerCtl, MouseKeys, Rotation, Xpos, Ypos
  18.   Else
  19.     ' Scroll was not handled by any controls, so treat as a general message send to the form
  20.     Me.Caption = "Form Scroll " & IIf(Rotation < 0, "Down", "Up")
  21.   End If
  22. End Sub
only change the PictureBox case in the sub, keep the rest of the loop the same.