'Benötigt wird: 1 CheckBox bei der die Index-Eigenschaft auf 0 gesetzt ist.
Option Explicit
Private LX%(3, 19), FL&(19), Warte%
 
Private Sub Form_Activate()
  Dim i%, j%, Rand%, R%, G%, B%
  Me.WindowState = 2
  Me.ScaleMode = 3
  Me.BackColor = 0
  Me.AutoRedraw = True
  Rand = 70
  Randomize
  Warte = 1
  For i = 0 To 19
    For j = 0 To 3
      LX(j, i) = IIf(j And 1, Rnd * Me.ScaleHeight, Rand + Rnd * (Me.ScaleWidth _
        - Rand))
    Next j
    Do
      R = Rnd * 255: G = Rnd * 255: B = Rnd * 255
    Loop While R < 64 And G < 64 And B < 64
    FL(i) = RGB(R, G, B)
    If i > 0 Then Load Check1(i)
    With Check1(i)
    .Caption = "Linie " & i
    .BackColor = FL(i)
    .Move 4, 4 + i * 22, 70, 20
    .Value = 1
    .Visible = True
    End With
  Next i
  Warte = 0
  Call Check1_Click(0)
End Sub
 
Private Sub Check1_Click(Index As Integer)
  Dim i%
  If Warte Then Exit Sub
  Me.Cls
  For i = 0 To 19
    If Check1(i).Value = 1 Then
      Me.Line (LX(0, i), LX(1, i))-(LX(2, i), LX(3, i)), FL(i)
    End If
  Next i
End Sub