hi.. all

i need to convert code vb to vfp :

Option Explicit

Dim LoadedSkin As Integer
Dim DisableLayeredWindows As Boolean

Private Sub Form_Load()
LoadedSkin = 1
DoApplySkin
End Sub

Private Sub skn_Click(ByVal Source As ACTIVESKINLibCtl.ISkinObject)
Select Case Source.GetName
Case "A"
MsgBox "Step A. Create bitmaps (or 32-bits TGA files with alpha-channel) for your skin, and load them into SkinBuilder.", , "How to create simple application-specific skin"
Case "B"
MsgBox "Step B. Create SkinFreeForm object (in application-specific folder), and choose its background bitmap.", , "How to create application-specific skin"
Case "C"
MsgBox "Step C. Create SkinButtons in the SkinFreeForm object and assign Normal, Highlighted and Pressed bitmaps.", , "How to create application-specific skin"
Case "D"
MsgBox "Step D. Choose the meaningful names for your objects to distinguish them from your application.", , "How to create application-specific skin"
Case "InnerArea"
LoadedSkin = 3 - LoadedSkin ' Switch to another skin: 1->2, 2->1
DoApplySkin
End Select
End Sub

Private Sub DoApplySkin()
If LoadedSkin = 1 Then
skn.LoadSkin App.Path + "\Skin1.skn"
Else
skn.LoadSkin App.Path + "\Skin2.skn"
End If
If DisableLayeredWindows Then
Dim FreeForm As SkinFreeForm
Set FreeForm = skn.GetTemplates.FindObject("Simple")
If FreeForm.GetLayeredWindow = skLayeredEnable Then FreeForm.SetLayeredWindow skLayeredDisable
End If
skn.ApplySkinByName Me.hWnd, "Simple"
End Sub

thank's for advance

regard

wahyu