很简单,代码如下:
Private Sub Form_UnLoad()
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim frm As Form
For Each frm In Forms
Unload frm
Next
End Sub
你欠了一句,括号里
Private Sub Form_UnLoad(Cancel As Integer)
Unload Form1
End Sub
你这样写是没有问题的,应该是别的地方的问题。最好贴出代码来分析
八成是函数的参数个数的问题