Luk eksternt program

Hvis det er Windows program, kan du sende en WM_QUIT til programmets handle

Public Const WM_QUIT = &H12

Public Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib \"user32\" Alias \"PostMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

public sub CloseExternal(sWindowName)
  dim hExternal as long
  hExternal = FindWindow(vbNullString, sWindowName)
  if hExternal <> 0 then PostMessage WinWnd, WM_QUIT, 0&, 0&

Takker