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