[ű]
=
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[Attachment]
Number=0
[]
Sub Main()
Dim pTest,a
HActiveX.Register "Plugin\Test.dll" 'עActiveX DLL
pTest = HActiveX.Create("Test","clsTest") '
print pTest.Add(1,1) '1+1
print pTest.Minus(1,1) '1-1
pTest.SetValue a 'ñaֵ
print a
HActiveX.Destory pTest 'ٶ
HActiveX.UnRegister "Plugin\Test.dll" 'עDLL
End Sub
[]
