Problem in using ActiveSkin with VB.Net

Dear All,
I just download activeskin4.27 demo from softshape.com. It works perfectly on VB6, but not on VB.Net. I cann't detect the value of getname method. Is it the limitation of Activeskin for using freeform in VB.net

' This is my code in VB.Net
Public Class Form1
Inherits System.Windows.Forms.Form
Dim Skinobj As ACTIVESKINLib.ISkinObject

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Skin1.LoadSkin("c:\skin1.skn")
Skin1.ApplySkinByName(Me.Handle.ToInt32, "Simple")
End Sub

Private Sub Skin1_ClickEvent(ByVal sender As Object, ByVal e As AxACTIVESKINLib._ISkinEvents_ClickEvent) Handles Skin1.ClickEvent
If Skinobj.GetName = "ButtonPlay" Then MessageBox.Show("ButtonPlay")
End Sub
End Class

I saw from help file in using getname method. It shows
Private Sub skn_Click(ByVal Source As ACTIVESKINLibCtl.ISkinObject)
but it can't do like this in VB.net

Anyone know, how to fix this problem.
Thanks in advance