Private Sub Send()
 
        If ckbMON1.Checked Then TextBox1.Text = startseq & command & endseq _
          Else TextBox1.Text = ""
        If ckbMON2.Checked Then TextBox1.Text = startseq & command & endseq _
        Else TextBox1.Text = ""
End Sub

Private Sub Command1_Click()
  Dim C As Control
 
  For Each C In Me.Controls
    If TypeOf C Is CheckBox Then
      C.Value = 1       ' CheckBoxen auswählen
    End If
  Next
End Sub