minimieren und als icon anzeigen????

[BlackAdler]

was mus ich in vb für code eingeben wen ich mein fenster von der form minmire das es neber der uhr kommt als kleines symbol wie die anderen z.b winamo oder aim icq usw

[gencha]

Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

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

Private t As NOTIFYICONDATA

Sub ShowIcon(Frm As Form, ByVal Info$)
If Right$(Info$, 1) <> Chr(0) Then
Info$ = Info$ + Chr$(0)
End If
t.cbSize = Len(t)
t.hWnd = Picture1.hWnd &acute;Picturefeld mit dem Icon
t.uID = 1&
t.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
t.uCallbackMessage = WM_MOUSEMOVE
t.hIcon = Picture1.Picture &acute;Picturefeld mit dem Icon
t.szTip = Info$
Shell_NotifyIcon NIM_ADD, t
End Sub

Sub KillIcon()
Shell_NotifyIcon NIM_DELETE, t
End
End Sub

Sub ChangeIcon(Optional Icon As Variant, Optional ByVal Info As Variant)
If IsMissing(Info) Then Info = &quot;&quot;
If Info = &quot;&quot; Then
Info = t.szTip
End If
If Right$(Info, 1) <> Chr(0) Then
Info = Info + Chr(0)
End If
If Not IsMissing(Icon) Then t.hIcon = Icon
t.szTip = Info
Shell_NotifyIcon NIM_MODIFY, t
End Sub

Private Sub Form_Load()
ShowIcon(Me,&quot;Ich will ficken!!!&quot;)
End Sub

Private Sub Form_UnLoad()
KillIconEnd Sub


ich hab jetz kein bock das groß zu kommentiern
probiern geht über studiern

[ich glaub langsam hab ichs richtig (1000er edit)]