Dim PrevHndl As Long
                'zjištění, zda je ukončen program - proces
                Dim mojeProcesses() As Process
                Dim mujProcess As Process
                mojeProcesses = Process.GetProcesses
                For Each mujProcess In mojeProcesses
                    If mujProcess.ToString = "System.Diagnostics.Process (jmeno_procesu)" Then

                        If MsgBox("Program xxx není ještě pravděpodobně ukončen. Jestliže jej chcete ukončit nyní zvolte ANO, pro přerušení  zvolte NE", MsgBoxStyle.YesNo) = DialogResult.Yes Then

    'preneseni do popredi
                            PrevHndl = mujProcess.MainWindowHandle.ToInt32()
                            SetForegroundWindow(PrevHndl)
                            'MsgBox(PrevHndl)

                            Sleep(1000) 'pockame 1 s
                            mujProcess.CloseMainWindow() 'ukonceni ext. programu
                            mujProcess.Close() 'ukonceni ext. programu

                            Sleep(8000) 'pockame 8 s

    Else
                            MsgBox("zprava")
                            Exit Sub
                        End If
                    End If
                Next