原创 VB.NET下的构造和析构函数

    Sub New() '构造函数(自动运行)
        blEnable = False
        blError = False
        Try
            blEnable = InitializeWinIo() '加载WinIO
        Catch ex As System.Exception
            MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Protected Overrides Sub Finalize() '析构函数(自动运行)
        If blEnable = True Then
            ShutdownWinIo() '卸载WinIO
        End If
    End Sub