Private Sub Form1_Activated(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.Activated
 
 
 
DO
 
 
        If DCD = 1 Then ChkDCD1.Checked = True Else ChkDCD1.Checked = False
 
 
 
'hier muss die kleine pause rein
Loop
 
 
    End Sub