Jag undra hur jag gör så när man klickar på minimera knappen så hamnar den i meddelandefältet, där klockan brukar ligga, heter väll även systray eller likande, men hur som helst, hur gör jag det?

/MVH Per

<code>
Option Explicit

Private Type NOTIFYICONDATA
lSize As Long
hWnd As Long
lId As Long
lFlags As Long
lcallbackMessage As Long
lIcon As Long
sTip As String * 64
End Type

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private TrayIcon As NOTIFYICONDATA


Private Sub Form_Resize()

'Bara om formuläret minimeras
If Form1.WindowState = 1 Then

'Sätt ikon
With TrayIcon
.lSize = Len(TrayIcon)
.hWnd = Picture1.hWnd
.lId = 1&
.lFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.lcallbackMessage = WM_LBUTTONDOWN
.lIcon = Form1.Icon
.sTip = "TOOOOOOOOLTIP" & Chr$(0)
End With
Shell_NotifyIcon NIM_ADD, TrayIcon

Me.Hide
End If


End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngDummy As Long

lngDummy = X / Screen.TwipsPerPixelX
If lngDummy = WM_LBUTTONDBLCLK Then
Me.Show
Form1.WindowState = 0
ElseIf lngDummy = WM_RBUTTONUP Then
MsgBox "Right button"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Ta bort ikon
With TrayIcon
.lSize = Len(TrayIcon)
.hWnd = Picture1.hWnd
.lId = 1&
End With
Shell_NotifyIcon NIM_DELETE, TrayIcon

End Sub

</code>

sök på systray här inne så hittar du säkert vad du söker, frågan har varit
uppe vid flera tillfällen.

/Emma

Spears: varför måste jag lägg in en bild (picture1) för att det ska fungera?

Du måste ha någonting som kan referera till ett event.
Pictureboxen är till för att lägga ikonen i.

ok, tack så mkt