Bir timer ekleyelim invertal=1000 ve enabled=false olsun.
Timera bu kodları yazın:
Kod:
Dim pStr As String
Dim pBytes() As Byte
pStr = "2f0201" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Bir tane checkbox ekleyin burda check13 yazıyor ama siz 13ün yerine kendi eklediğiniz checkin ve timerın numarasını yazın.
Checkbox'a eklenecek kodlar:
Kod:
If Check13.Value = 1 Then
Timer10.Enabled = True
Else
Timer10.Enabled = False
End If
End Sub