[魔術王子]

OnLine3.bas

Attribute VB_Name = "Module1"
Option Explicit

Public bIfServer As Boolean

Sub Main()
    Load frmLinkType
    frmLinkType.Show
End Sub

程式蠻長的
OnLine3_ox.frm分三段轉貼