Dim test As Process() = Process.GetProcessesByName("ICQ.exe")
   Dim p As System.Diagnostics.Process 
        For Each p In test
            If Not p.CloseMainWindow() Then
                p.Kill()
            End If
        Next