Sub Class_Globals
Type strDEVICE_Description(name As String, version As String)
Type strDEVICE_Interface(name as string, category as string)
Type strDEVICE(desc As strDEVICE_Description, inter As strDEVICE_Interface)
public mydevice as strDEVICE
mydevice.desc.name ="toto"
mydevice.desc.version="1.0"
mydevice.inter.name="BT"
mydevice.inter.category="2"
End Sub
Public Sub Initialize
End Sub