可以,比如有两个窗体FormA,FormB
在FormA中声明Private Withevents F as Form
然后在FormA某处代码中(如FormA_Load事件中)给F这样赋值:
Set F=FormB
这样在FormA中就可以捕获FormB的事件了,如UnLoad事件。
Private Sub F_UnLoad(cancel as integer)
    msgbox "FormB is unloading"
end sub

解决方案 »

  1.   

    我有个歪点子,你把一个窗体做客户端,一个做服务器端,然后调用TCP/IP或者UDP,随你的便了。不过不知道你的程序准备干吗用。因为要加相应的控件,因此文件大小肯定会发生变化。
      

  2.   

    补充一段代码,用的是Random(随便)的方法Private WithEvents F As FormPrivate Sub Command1_Click()
        Form2.Show
        Set F = Form2
    End SubPrivate Sub F_Unload(Cancel As Integer)
        MsgBox F.Name & " is unload"
    End Sub
      

  3.   

    Private Sub Form_Unload(cancel as integer)事件