Ændre systray icon

Er der nogen der kan hjælpe???

Nu har jeg ikke lige set på den kode du henviser til.. men ellers så har jeg lavet den op til flere gange:

http://hjem.get2net.dk/sjh/eksperten/vbTrayIcon.zip
Se under Timer1 -> Call objTray.NotifyModify(Me.Icon, strTip)

ellers så er der også en her:
http://hjem.get2net.dk/sjh/eksperten/TrayMenu.zip

Hvordan skal jeg angive Call objTray.NotifyModify(Me.Icon, strTip)
når mit icon hedder icon2.ico og ligger i samme mappe som programmet?

'Option Explicit <- Find tekst

Private idpIcon(2) As IPictureDisp ' <- Og indtast

'Private Sub Form_Load() <- Find funktion
  Set idpIcon(0) = LoadPicture("Icon1.ico") ' <- Og indtast
  Set idpIcon(1) = LoadPicture("Icon2.ico") ' <- Og indtast
  Set idpIcon(2) = LoadPicture("Icon3.ico") ' <- Og indtast
'End Sub

'Private Sub Timer1_Timer() <- Find funktion
  Dim intIcon As Integer ' <- Og indtast
  intIcon = 0 ' <- Og indtast (Her bestemmer du dit ikon. fra 0 til 2)
  Call objTray.NotifyModify(idpIcon(intIcon), strTip) ' <- Og indtast
'End Sub

Kan ikke få det til at fungere, kan du ikke skrive hele frmMain koden?? så det virker

Får fejl i:
Private Sub Timer1_Timer()
  Dim intIcon As Integer
  intIcon = 0
  Call objTray.NotifyModify(idpIcon(intIcon), strTip) '<--FEJL HER
End Sub

du skal også bruge resten af koden her fra: http://hjem.get2net.dk/sjh/eksperten/vbTrayIcon.zip

nu skal du bare tilføje de linjer som jeg har skrævet under "<- Find funktion"

sådan kommer det til at se ud under Timer1

Private Sub Timer1_Timer()
Dim strTip As String
Dim intIcon As Integer ' <- Og indtast
  'Her opdater vi klokken igen.
  strTip = CStr("TrayIcon Klokken " & Time)
  intIcon = 0 ' <- Og indtast (Her bestemmer du dit ikon. fra 0 til 2)
  Call objTray.NotifyModify(idpIcon(intIcon), strTip) ' <- Og indtast
End Sub

Takker, lige hvad jeg manglede,
sjh læg svar

Svar..

måske du lige skulle prøve at forklar lidt mere her: http://www.eksperten.dk/spm/618789