Piacere mi presento, sono lo sfigato degli oggetti di VB6

In pratica avevo un progetto che dovevo minimizzare in systray ma era una form normale, in pratica non funzionava (come ora) perchè c'era una Label3 che non lo faceva funzionare.

Ora ho scoperto che in questo progetto il problema è la toolbar_menu (XPToolbar), se la tolgo funziona.

Ho provato a fare così ma non funziona lo stesso:

codice:
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
MouseMove Button, Shift, X, Y
    
End Sub
codice:
Private Sub tlb_menu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
MouseMove Button, Shift, X, Y
    
End Sub
codice:
Private Sub MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim Result As Long
Dim msg As Long

msg = X / Screen.TwipsPerPixelX

Select Case msg
'    Case WM_LBUTTONUP
'         Me.WindowState = vbNormal
'         Result = SetForegroundWindow(Me.hwnd)
'         Me.Show
    Case WM_LBUTTONDBLCLK
         Me.WindowState = vbNormal
         Result = SetForegroundWindow(Me.hwnd)
         Me.Show
    Case WM_RBUTTONUP
         Result = SetForegroundWindow(Me.hwnd)
         Me.PopupMenu Me.mPopupSys
End Select

End Sub