Attribute VB_Name = "Module1"
'--這是一個公用的模塊
Option Explicit


'--一個強制卸載所有窗體的過程
Public Sub EndForms()
    Dim obj As Form
    For Each obj In Forms
        Unload obj
    Next
    End
End Sub
'--關閉服務器的過程
Public Sub CloseServer()
    '--首先銷毀服務器
    frmfirst.serobj.DestroyServer
    Set frmfirst.serobj = Nothing
    Call EndForms '--卸載所有窗口
End Sub
'--關閉客戶端的過程
Public Sub CloseClient()
    frmfirst.cliobj.DestroyClient
    Set frmfirst.cliobj = Nothing
    Call EndForms
End Sub