Rem***Farben
    Private FarbeLine As ColorConstants
    Private FarbeGrid As ColorConstants
Rem***Grid
    Private GridActive As Boolean
 
Public Sub DrawData(X As Single, Y As Single)
    Pic.Line -(X, Y)
End Sub
 
Private Sub DrawGrid()
    Pic.AutoRedraw = True
    For i = 0 To 210 Step 10
        Pic.Line (0, i)-(10000, i), FarbeGrid
    Next i
    Pic.AutoRedraw = False
End Sub
 
Public Property Let FarbeLinie(Farbe As ColorConstants)
    FarbeL = Farbe
End Property
 
Public Property Let FarbeGitter(Farbe As ColorConstants)
    FarbeGrid = Farbe
End Property
 
Public Property Let GridOn(EinAus As Boolean)
    GridActive = EinAus
End Property
 
Private Sub UserControl_Initialize()
 
If GridActive = True Then DrawGrid
Pic.ScaleTop = Pic.Height * -1
Pic.PSet (0, 0), vbBlack
 
End Sub