你在每个事件中写入msgbox "事件名",不就知道了吗?:)

解决方案 »

  1.   

    '用如下形式的代码自行验证即可
    Option ExplicitPrivate Sub Form_Activate()
        Debug.Print "Form_Activate"
    End SubPrivate Sub Form_Deactivate()
        Debug.Print "Form_Deactivate"
    End SubPrivate Sub Form_GotFocus()
        Debug.Print "Form_GotFocus"
    End SubPrivate Sub Form_Initialize()
        Debug.Print "Form_Initialize"
    End SubPrivate Sub Form_Load()
        Debug.Print "Form_Load"
    End SubPrivate Sub Form_Paint()
        Debug.Print "Form_Paint"
    End SubPrivate Sub Form_Resize()
        Debug.Print "Form_Resize"
    End Sub
      

  2.   

    Form_Initialize
    Form_Load
    Form_Resize
    Form_Activate
    Form_GotFocus
    Form_Paint
    Form_Unload