vb查看进程，防止程序重复启动

Question

比如我有一个vb做的程序，启动之后进程为“w.exe”。想每次启动程序时判断进程中是不是有“w.exe”，有就不启动程序了怎么做。
还有中文名称的进程名可以不

Answer 1

枚举进程，看看是否存在w.exe  这个进程
  如果存在就
 End

Answer 2

何必那么麻烦，
Private Sub Form_Load()
If App.PrevInstance = True Then End
End Sub

Answer 3

根据程序的caption,如叫"测试",用FindWindow取句柄,用PostMessage关闭程序
这种方法和进程名无关,中文当然也可以
hwnd = FindWindow(vbNullString, "测试")
iRet = PostMessage(hwnd, WM_CLOSE, 0, 0&)   '关闭