Option Explicit
 
Private Type PointAPI
  x As Long
  y As Long
End Type
 
Private Declare Function Polygon& Lib "gdi32" (ByVal hdc&, lpPoint As PointAPI, _
  ByVal nCount&)
 
Private Const Pi! = 3.1415926
 
Private Sub Form_Load()
 
Dim Figur(2) As PointAPI
Dim Wnk!, Rad1!, i&, Farbe&
 
Me.ScaleMode = vbPixels
Me.BackColor = RGB(96, 64, 0)
Rad1 = 140
For i = 0 To 2
  Wnk = 2 * Pi * (i / 3 + 7 / 12)
  With Figur(i)
    .x = 300 + Rad1 * Cos(Wnk)
    .y = 200 - Rad1 * Sin(Wnk)
  End With
Next i
With Picture1
  .ScaleMode = vbPixels
  .BackColor = RGB(128, 128, 255)
  .Move 4, 4, 600, 400
  .FillStyle = vbFSSolid
  .FillColor = RGB(200, 200, 200)
  .ForeColor = RGB(128, 128, 128)
  .AutoRedraw = True
  Call Polygon(.hdc, Figur(0), 3)
  .FillStyle = vbFSTransparent
  .DrawWidth = 5
  Picture1.Line (0, 268)-(241, 165), vbWhite
  For i = 0 To 6
    Farbe = Choose(i + 1, vbRed, RGB(255, 128, 0), vbYellow, RGB(128, 255, _
      128), vbGreen, vbBlue, vbMagenta)
    Picture1.Line (360, 163 + 2 * i)-(600, 250 + 5 * i), Farbe
  Next i
  .DrawWidth = 1
End With
 
End Sub