Det finns exempel på hur man lägger en bild i systrayen men hur gör man från en MDI Form?

Kopiera de exempel som finns i Tips&trix
och la in koden i MDIForm för att testa men det gick inte.. :-)

Tror det är här det inte funkar: Me.ScaleMode
Eller om det finns något annat sätt?
<code>
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'this procedure receives the callbacks from the System Tray icon.
Dim Result As Long
Dim msg As Long
'the value of X will vary depending upon the scalemode setting
If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If

Select Case msg
Case WM_LBUTTONDBLCLK '515 restore form window
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
Case WM_RBUTTONUP '517 display popup menu
Result = SetForegroundWindow(Me.hwnd)
Me.PopupMenu Me.mnuPopup
End Select
End Sub
</code>

Har också haft problem med detta innan och jag löste det genom att använda en PictureBox istället för MDIFormen. Du sätter alltså ut en PictureBox med .Visible = False och använder den för att ta emot meddelanden.

/Micke

Kanon, funka utmärkt!

/Tack!

Du kan ju också kolla mitt uppskick Programarkivet:Animerad SysTray om du inte redan gjort detta.