Indetectables

Buen día!

¿Cómo puedo usar el nombre wilcard matar proceso por el nombre de la ventana usando este módulo?
por ejemplo: si la ventana contiene "Calculator" pondrá fin a su proceso si se detecta "Calcu"

Soy un novato vb6
espero que pueda ayudar. gracias! :D

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias ​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function KillProcessByWindowName (Window As String)
As Long Dim lnghProcess
As Long Dim lngReturn
As Long Dim lpProc
As Long Dim gtWnd
gtWnd = FindWindow (vbNullString, Window)
Call GetWindowThreadProcessId (gtWnd, lpProc)
WindowToProcessId = lpProc
lnghProcess = OpenProcess (1 & -1 &, WindowToProcessId)
lngReturn = TerminateProcess (lnghProcess, 0 &)
End Function
Private Sub Command1_Click ()
Call KillProcessByWindowName (App.Title)
End Sub

Puedes hacerlo de dos maneras:
1) Usando expresiones regulares ([Enlace externo eliminado para invitados])
2) Comprobando si el título de la ventana contiene la String ([Enlace externo eliminado para invitados])