Option Explicit
'----------------------------------
'TestProcessIDsByProcessNamePattern
'----------------------------------
Sub TestProcessIDsByProcessNamePattern()
Dim TabPID As Variant
Dim i As Integer
TabPID = ProcessIDsByProcessNamePattern("firefox*")
If IsArray(TabPID) Then
For i = 1 To UBound(TabPID)
MsgBox TabPID(i)
Next i
End If
End Sub
'-------------------
'TestKillByProcessID
'-------------------
Sub TestKillByProcessID()
Call KillByProcessID(10000)
End Sub...