'你可以这样做:新建一个窗口,接着:
private sub form_Initialize()
msgbox "Initialize",,"Initialize"
end sub
private sub form_load()
msgbox "Load",,"Load"
end sub
private sub form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
msgbox "QueryUnload",,"QueryUnload"
end sub
private sub form_Unload(Cancel As Integer)
msgbox "Unload",,"Unload"
end sub
Private Sub Form_Activate()
'自已加些语句吧
msgbox "Activate",,""
End Sub
Private Sub Form_Deactivate()
'自已加些语句吧
msgbox "Deactivate",,""
End Sub