Form_Unload的问题

[wani]

Private Sub Form_Unload(Cancel As Integer)
'使用次数 写入注册表
Dim temp As Long
temp = GetDWORDValue("HKEY_LOCAL_MACHINE\SOFTWARE\wang", "allnum")
temp = temp + 1

SetDWORDValue "HKEY_LOCAL_MACHINE\SOFTWARE\wang", "allnum", temp

Unload Me
End Sub

还有一个按钮：
Private Sub Command2_Click() '退出
'使用次数 写入注册表
Dim temp As Long
temp = GetDWORDValue("HKEY_LOCAL_MACHINE\SOFTWARE\wang", "allnum")
temp = temp + 1

SetDWORDValue "HKEY_LOCAL_MACHINE\SOFTWARE\wang", "allnum", temp

Unload Me
End Sub

问题是，我每次退出时，temp都+2。肯定是上面的代码都执行的原因。

怎么才能退出的时候，才执行一次呢？

[Wearebest]

if form=nothing then exit

[rappercn]

Private Sub Command2_Click() 的时候写了一次，unload里面又写了一次，当然+2了

把Private Sub Command2_Click()里面的unload me以外的代码都去掉，多余，unload me之后自动会执行form_unload

[zjsm96441125]

在Form_Unload 中就可以了
Sub Command2_Click()
unload me
end sub

当退出的时候自动执行UnLoad 中的代码！

[csdngoodnight]

这样也可以：


'一个过程：
Sub aa()

'使用次数 写入注册表
Dim temp As Long
temp = GetDWORDValue("HKEY_LOCAL_MACHINE\SOFTWARE\wang", "allnum")
temp = temp + 1

SetDWORDValue "HKEY_LOCAL_MACHINE\SOFTWARE\wang", "allnum", temp


End sub


Private Sub Form_Unload(Cancel As Integer)
call aa
End Sub

还有一个按钮：
Private Sub Command2_Click() '退出
Form_Unload()
End Sub

问题是，我每次退出时，temp都+2。肯定是上面的代码都执行的原因。

怎么才能退出的时候，才执行一次呢？