'Benötigt wird 1 PictureBox.
Option Explicit
Private Declare Function BitBlt& Lib "gdi32" (ByVal hdcDest&, _
  ByVal XDest&, ByVal YDest&, ByVal nWidth&, ByVal nHeight&, _
  ByVal hDCSrc&, ByVal xSrc&, ByVal ySrc&, ByVal dwRop&)
Private SW%, SH%, G%(9), P1 As Object
 
Private Sub Form_Activate()
  Dim i%, Breite%, Höhe%, Pi!
  ScaleMode = 3
  Breite = 500
  Höhe = 200
  Set P1 = Picture1
  With P1
  .ScaleMode = 3
  .AutoRedraw = True
  .Move 20, 20, Breite, Höhe
  SW = .ScaleWidth
  SH = .ScaleHeight
  End With
  Pi = 4 * Atn(1)
  For i = 0 To 9
    G(i) = -1
  Next i
  G(3) = SH \ 2
  Do
    For i = 0 To 359
      'Hier werden die Daten zugewiesen:
      G(1) = (SH \ 2 + SH * 0.4 * Sin(i / 180 * Pi)) '1. Kurve
      G(2) = (SH \ 2 + SH * 0.4 * Cos(i / 180 * Pi)) '2. Kurve
      Call Eintrag
      DoEvents
    Next i
  Loop
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  End
End Sub
 
Private Sub Eintrag()
  Dim i%
  Call BitBlt(P1.hDC, 0, 0, SW - 1, SH, P1.hDC, 1, 0, vbSrcCopy)
  P1.Line (SW - 1, 0)-Step(0, SH - 1), vbBlack
  For i = 0 To 9
    If G(i) >= 0 Then
      P1.PSet (SW - 1, G(i)), QBColor(i + 1)
    End If
  Next i
End Sub