general.bas

来自「这些为Vb皮肤源码来的」· BAS 代码 · 共 25 行

Attribute VB_Name = "General"

Public skin As New Skinner
Sub Main()
    MDIForm1.Show
End Sub

Public Sub SetForms()
    On Error GoTo errhandle
    
    Dim col As New Collection
    Dim i
    Dim frm As Form
    For Each frm In Forms
    col.Add frm
    Next
    skin.SetCollection col
    Exit Sub
errhandle:
    MsgBox Err.Description
    Err.Clear
End Sub