Dim Obj As Object ' <-- Globale Variable in einem Modul
...
Obj = New Form
Obj.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Obj.ClientSize = New System.Drawing.Size(5, 5)
Obj.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Obj.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Obj.TopMost = True
Obj.ResumeLayout(False)

AddHandler Obj.MouseMove, AddressOf frmMsgbox_MouseMove