VB - Close program

YoungNastyMan

Visual Basic 6

hi was just wondering if anyone can give me some advice
i am trying to write a progam so that when i click a button it will close kazaa down but the thing is that when i click the button it just goes down into the system-tray. if i use the code for notepad or something it closes it stright away. so i guess the question is how to i close stuff from the system-tray.

code below:

'find the app
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

'send the app a close message

Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Long) _
As Long


Private Sub Command1_Click()
Dim Handle As Long
Const NILL = 0&
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060&



Handle = FindWindow("kazaa", vbNullString)


Handle = SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, NILL)

End Sub

str8_away

Does Kasaa has an option that says "close to system tray"?
I know some programs have that option.