No lo he mirado bien, pero es diferente al que yo uso. Imagino que o quitas esa linea o deberas crear un menu llamado MNU (o como quieras si luego lo cambias en el código del ejemplo) con opciones, como p.ej. restaurar la ventana. Seguramente ese CASE se activa al pinchar el boton derecho sobre el icono.
Lo que pasa es que no te aclaran que significa cada valor del select case.
Usa mi mousemove como base
Código vb:
Ver originalPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const WM_LBUTTONDBLCLK = &H203
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_RBUTTONDBLCLK = &H206
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Dim msg As Long
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDBLCLK:
'Doble click izquierdo...
Case WM_LBUTTONDOWN:
'Si pulsas el boton izquierdo...
Case WM_LBUTTONUP:
' Si sueltas el boton izquierdo...
Case WM_RBUTTONDBLCLK:
' etc...
Case WM_RBUTTONDOWN:
'Si pulsas el boton derecho...
' Aqui puedes mostrar un menu desplegable con popupmenu.
' Aunque en realidad puedes mostrarlo en el Case que quieras.
' Incluso puedes elegir si lo muestras al pulsar o al soltar el boton que sea.
Case WM_RBUTTONUP:
End Select
End Sub