Function ZatvoriProgram(Imeprograma)
Dim WO As Object
Dim ProcesO
Set WO = GetObject("winmgmts:")
    Set ProcesO = WO.execquery("SELECT * FROM win32_process WHERE Name = '" & Imeprograma & "'")
    For Each ProcesO In ProcesO
        ProcesO.Terminate
    Next
End Function