Dim builddate As String
Dim test As Integer
Dim b As Boolean
Dim b1 As Boolean
Dim channel(6) As Boolean
Dim Period(6) As Long
Dim duty(6) As Long                ' dim ' tried type as long and single



For v=1 To 8
setUserlabel(v," ")
sleep(20)
Next v              ' clean screen. program needs 8 userlabels (1 to 8) and one wide button

Set device = CreateObject("PoKeysDevice_DLL.PoKeysDevice")         ' declare

setbuttontext "activation"
 
connect
b=device.getbuilddate(builddate)
message b
setuserlabel(3,"Build date  "&builddate )
' test for communications

setbuttontext "PWM" 

For v=0 To 5
channel(v)=true
period(v)=12000000
duty(v)= 6000000
Next v

' set start values 

' here is problem ? I tried many syntax combos ? error is
' class does not support automation or does not support expected interface


b = device.SetPWMOutputs (channel() ,Period() ,duty() ) 
b = device.GetPWMOutputs (channel() ,Period() ,duty() )

For v=3 To 8
setuserlabel ( v , str$(b1) & Str$(b) & " " &   str$(period(v-3)) &  Str$(duty(v-3))   )
Next v
' show data

disconnect

End
Sub disconnect
b=device.DisconnectDevice()
End Sub   
   
Sub connect
test=device.enumeratedevices()
a$="Devices"+str$(test)
setuserlabel (1,a$)

b=device.ConnectToDevice (0)
a$="Connection " + str$(b)
setuserlabel(2,a$)
If b <> true Then Stop
End Sub