' Globale (Shared) Variable
    Public Shared CodeChange As Boolean
 
    ' Globale (Shared) Routine um CheckBox zu setzen
    Public Shared Sub SetCB(ByVal cb As CheckBox, ByVal value As Boolean)
        Dim cc As Boolean = CodeChange
        CodeChange = True
        cb.Checked = value
        CodeChange = cc
    End Sub
 
    ' Eine CheckBox prüft ob sie durch Code gesetzt wurde...
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
        Debug.WriteLine("CheckBox1 changed by code:" + _
        frmMain.CodeChange.ToString())
    End Sub
 
     ' Setze CheckBox mittels Code
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        frmMain.SetCB(CheckBox1, True)
    End Sub
 
    ' Setze CheckBox mittels Code
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        frmMain.SetCB(CheckBox1, False)
    End Sub