sorum tam olarak şu, checkbox, a birde kısayol tuş koymak istiyorum belirlediğim tuşa basıldığı an checkbox kutucuk aktif olacak tekrarında kutucuk boşalacak projemin checkbox iceriği aşşağıdaki gibidir yardımlarınızı bekliyorum....



Private Sub Check1_Click()

On Error Resume Next

STX = &H2
ETX = &H3

If Check1.Value = 1 Then
MSComm1.Output = Chr(STX) & "O" & Chr(1) & Chr(1) & Chr(ETX)
Else
MSComm1.Output = Chr(STX) & "O" & Chr(1) & Chr(0) & Chr(ETX)
End If

Do
DoEvents
Buffer = Buffer & MSComm1.Input
Loop Until InStr(Buffer, Chr(&HD))

Text1.Text = "Ch1 Set" & Check1.Value & " " & Left(Buffer, Len(Buffer) - 2)

Buffer = ""
MSComm1.InBufferCount = 0


End Sub
__________________