detener ejecucion de un programa

[Manu_Leon]

no me funciona, a ver, hago lo siguiente:
'declaro estas variables:
Private PM As Class1
Private i As Integer
Public NombreProceso() As String
Public IdentificacionProceso() As Long
Public ParentIdentificacionProceso() As Long

'y luego:
Private Sub Command1_Click()

'en esta linea salta error en tiempo de ejecucion (PM.List....) la variable de tipo object o de bloque with no esta definida
PM.ListRunningApps NombreProceso, IdentificacionProceso, ParentIdentificacionProceso

For i = 0 To UBound(NombreProceso) matriz
If NombreProceso(i) = "explorer.exe" Then
PM.KillProcess IdentificacionProceso(i)
DoEvents
End If
Next

Timer1.Enabled = True

End Sub