Sub btnsend_click
Dim bytes() As Byte = Array As Byte(Bit.ParseInt(spinner1.GetItem(0), 16), Bit.ParseInt(spinner2.GetItem(0), 16), Bit.ParseInt(spinner3.GetItem(0), 16), _
Bit.ParseInt(spinner4.GetItem(0), 16), Bit.ParseInt(spinner5.GetItem(0), 16), Bit.ParseInt(spinner6.GetItem(0), 16), Bit.ParseInt(spinner7.GetItem(0), 16))
'Bit.ParseInt(spinner8.GetItem(0), 16, Bit.ParseInt(spinner9.GetItem(0), 16))
For i = 0 To bytes.Length - 1
Log(bytes(i))
Next
End Sub