Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long'后一个参数为定时器编号
Private Sub Form_Load()
Dim mhwnd As Long
mhwnd = FindWindow(vbNullString, "扫雷")