module1.bas

来自「Skin++ 2.9.2 For VB6 使用注意事项: ==========」· BAS 代码 · 共 32 行

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public skinpp As New SKINPPVBLib.SkinPPVBComDLL


Sub Main()
    skinpp.LoadSkin "PixOS.ssk"
    Dim fLogin As New frmLogin
    skinpp.SetSkinResID fLogin.hwnd, 112
    fLogin.Show vbModal
    If Not fLogin.OK Then
        '登录失败，退出应用程序
        End
    End If
    Unload fLogin

    skinpp.SetSkinResID frmSplash.hwnd, 113
    frmSplash.Show
    frmSplash.Refresh
    Set fMainForm = New frmMain
    
    Load fMainForm
    Unload frmSplash


    fMainForm.Show
    
   
    
End Sub