Public Sub DoSubClass(ByVal hwnd As Long)
  WinHandle = hwnd
  VorigeAddr = SetWindowLongA(hwnd, GWL_WNDPROC, _
      AddressOf TestWndProc)
End Sub
 
Public Sub UndoSubClass()
  SetWindowLongA WinHandle, GWL_WNDPROC, VorigeAddr
End Sub

Public Function TestWndProc( _
    ByVal hwnd As Long, ByVal uMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
 
      If uMsg = &H9000 Then
        started_yet = started_yet + 1
       nid.szTip = started_yet & "mal gestartet" & vbNullChar
       Shell_NotifyIcon NIM_MODIFY, nid
      End If
 
  'Nachricht weiterleiten:
  TestWndProc = CallWindowProcA(VorigeAddr, hwnd, _
      uMsg, wParam, lParam)
End Function

If App.PrevInstance Then
  Dim RetVal As Long
  Dim n As Long
  RetVal = FindWindow(vbNullString, "FormName")
  'MsgBox (RetVal)
  If RetVal <> 0 Then
      n = SendMessage(RetVal, &H9000, 0, 0)
      Unload Me
  Else: started_yet = 1
  End If
End If

MfG DreamFlasher

I'm not perfect...yet! (MacGyver)
You know the story: Girl meets boy, girl changes boy's subroutines. (Janeway)
I'll be honest with you. My name's not Kirk. It's Luke Skywalker. (Jack O'Neill)