SkinFramework VB6 and .NET

Private Sub Command2_Click()
   'Load and apply skin
   SkinFramework1.ApplyWindow Me.hWnd
   SkinFramework1.ApplyOptions = xtpSkinApplyColors Or xtpSkinApplyFrame Or xtpSkinApplyMetrics Or xtpSkinApplyMenus
   SkinFramework1.LoadSkin App.Path & "\Vista.cjstyles", "NormalBlack.ini"
End Sub

Private Sub Command1_Click()
   'Show .NET-Form
   Dim s As Object
   Set s = CreateObject("SkinTest.SkinFramework")
   Call s.FormShow
End Sub

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

using AxXtremeSkinFramework;

namespace SkinTest
{
    public partial class SkinnedForm : Form
    {
        public AxSkinFramework _SkinFramework;

        public SkinnedForm()
        {
            _SkinFramework = new AxSkinFramework();
            
            ((System.ComponentModel.ISupportInitialize)(_SkinFramework)).BeginInit();
            this.Controls.Add(_SkinFramework);
            ((System.ComponentModel.ISupportInitialize)(_SkinFramework)).EndInit();
            
            InitializeComponent();
        }

        protected override void OnVisibleChanged(EventArgs e)
        {
            base.OnVisibleChanged(e);

            if (this.Visible)
            {
                _SkinFramework.ApplyWindow(this.Handle.ToInt32());
                this.BackColor = _SkinFramework.GetColor(XtremeSkinFramework.XTPColorManagerColor.STDCOLOR_BTNFACE);
            }
        }
    }
}