Function IsPrgRunnig(ProgramName As String) As Boolean
        Dim f As Long, sname As String
        Dim hSnap As Long, proc As PROCESSENTRY32
        hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,  0 )
        If hSnap = hNull Then Exit Function
        proc.dwSize = Len(proc)
        f = Process32First(hSnap, proc)
        Do While f
         sname = StrZToStr(proc.szExeFile)
                   If sname = ProgramName Then
                   IsPrgRunning = True
                   Exit Function
                   End If
         f = Process32Next(hSnap, proc)
       Loop
End Function

Private Sub Command1_Click()
        Dim f As Long, sname As String
        Dim hSnap As Long, proc As PROCESSENTRY32
        hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,  0 )
        If hSnap = hNull Then Exit Sub
        proc.dwSize = Len(proc)
          f = Process32First(hSnap, proc)
        Do While f
         sname = StrZToStr(proc.szExeFile)
           List1.AddItem sname
         f = Process32Next(hSnap, proc)
       Loop
End Sub

If Trim(sname) Like "*" & ProgramName & "*" Then