程序代码：

Private Form_Load()
Dim Str()                       As String
    Dim X                           As Integer
    
    Set frmAlert = New Thread---------------------------------------此行出错
    Set pThread = New Thread
    'If FormAlert.IsThreadRunning = False Then FormAlert.CreateWin32Thread Me, "ShowBarForm", 0
    'If pThread.IsThreadRunning = False Then pThread.CreateWin32Thread Me, "ShowThreadForm", 0

    Set ProtocolBuilder = New clsProtocolInterface
    Set TCPDriver = New clsTCPProtocol
    Set UDPDriver = New clsUDPProtocol
    Set g_aProgramDescriptions = New Dictionary
    Set g_DBCon = MakeADOConnection
    Set g_rsTrojan = New ADODB.Recordset
    Set g_rsPorts = New ADODB.Recordset
    Proc_Startup
    ProtocolBuilder.AddinProtocol TCPDriver, "TCP", IPPROTO_TCP
    ProtocolBuilder.AddinProtocol UDPDriver, "UDP", IPPROTO_UDP
    
    Str = Split(EnumNetworkInterfaces(), ";")
    For X = 0 To UBound(Str)
        If Str(X) <> "127.0.0.1" Then
            cmbInterface.AddItem Str(X) & " [" & GetHostNameByAddr(inet_addr(Str(X))) & "]"
        End If
    Next
    If cmbInterface.ListCount > 0 Then cmbInterface.ListIndex = 0
    
    Set HelpObj = New clsHelpCallBack
    Call ModCoolMenu.Install(Me.hwnd, HelpObj)
    ModCoolMenu.ForeColor (Me.hwnd)
    Call ModCoolMenu.FullSelect(Me.hwnd, True)
    
    txtIP.ToolTipText = txtIP.ToolTipText & " (提示: * wildcard 不支持)"
    
    LoadSettings
    LoadPrograms
    
    Pic16.Width = (SMALL_ICON) * Screen.TwipsPerPixelX 'Set the Temp Picture Box properties.
    Pic16.Height = (SMALL_ICON) * Screen.TwipsPerPixelY 'Set the Temp Picture Box properties.
    Pic32.Width = LARGE_ICON * Screen.TwipsPerPixelX 'Set the Temp Picture Box properties.
    Pic32.Height = LARGE_ICON * Screen.TwipsPerPixelY 'Set the Temp Picture Box properties.
    g_sShell32Path = FixPath(SpecialFolder(WinSystem)) & "shell32.dll" 'Get the shell32.dll location into memory for later use.
    IP_Initialize
    With lstTCPConnections
        If g_bXPTable = True Then .ColumnHeaders.Add , , "映像名称", 2500
        .ColumnHeaders.Add , , "本地地址", 2500
        .ColumnHeaders.Add , , "本地端口", 1100
        .ColumnHeaders.Add , , "远程地址", 2500
        .ColumnHeaders.Add , , "远程端口", 1300
        .ColumnHeaders.Add , , "状态", 1000
        If g_bXPTable = True Then
            .ColumnHeaders.Add , , "使用", 1000
            .ColumnHeaders.Add , , "进程 ID", 1200
        End If
        .ZOrder
    End With
    With lstUDPConnections
        If g_bXPTable = True Then .ColumnHeaders.Add , , "映像名称", 2500
        .ColumnHeaders.Add , , "本地地址", 2500
        .ColumnHeaders.Add , , "本地端口", 1100
        If g_bXPTable = True Then
            .ColumnHeaders.Add , , "使用", 1000
            .ColumnHeaders.Add , , "进程 ID", 1200
        End If
    End With
    With lstPrograms
        .Icons = ilTray
        .SmallIcons = ilTray
        .ColumnHeaders.Add , , "激活", 700
        .ColumnHeaders.Add , , "映像名称", 3500
        .ColumnHeaders.Add , , "存取", 800
        .ColumnHeaders.Add , , "服务", 800
    End With
    With lstPorts
        .ColumnHeaders.Add , , "端口", 850
        .ColumnHeaders.Add , , "方向", 1300
    End With
    With lstIPs
        .ColumnHeaders.Add , , "IP/主机", 1700
        .ColumnHeaders.Add , , "方向"
    End With
    With lstPacket
        .SmallIcons = ilPacket
        .ColumnHeaders.Add , , "来源", 2500
        .ColumnHeaders.Add , , "目标", 2500
        .ColumnHeaders.Add , , "时间", 1200
        .ColumnHeaders.Add , , "版本", 800
        .ColumnHeaders.Add , , "数据", 2500
    End With
    MakeNumberOnly txtPort
    LoadPorts
    LoadIPs
    Form_Resize
    
    With nidProgramData
        .cbSize = Len(nidProgramData)
        .hwnd = FrmMenu.hwnd
        .uId = vbNull
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = FrmMain.ilTray.ListImages(10).ExtractIcon
        .szTip = "Fire Gate" & vbNullChar
    End With
    Shell_NotifyIcon NIM_ADD, nidProgramData
    
    FrmThread.tmrThread.Enabled = True
    FrmThread.Visible = False
End Sub