Private Sub Form_Load()
    UnloadBG
    frm_Login.Show 1
End Sub

Public Function UnloadBG()
    Dim Descriptions As SkinDescriptions
    Set Descriptions = SkinFramework.EnumerateSkinDirectory(App.Path + "\Styles", True)
    Dim Des As SkinDescription
    For Each Des In Descriptions
        Debug.Print Des.Name & " - " & Des.Path
    Next
    SkinFramework.LoadSkin App.Path + "\Styles\Codejock.cjstyles", ""
    SkinFramework.ApplyWindow Me.hwnd
    SkinFramework.ApplyOptions = SkinFramework.ApplyOptions Or xtpSkinApplyMetrics
End Function