Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As _
      System.EventArgs) Handles CheckBox1.CheckedChanged
        Dim chk As CheckBox = CType(sender, CheckBox)
        If chk.Checked Then
            ' ignorieren
        Else
            ' führe Programm aus
        End If
 
    End Sub