' Controls: 1 * Picturebox
 
Option Explicit
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Declare Function Polygon Lib "gdi32" (ByVal hDC As Long, lpPoint As _
  POINTAPI, _
  ByVal nCount As Long) As Long
 
Private Sub Form_Load()
 
Dim i%, Dat1$, Figur(2) As POINTAPI, Pi!, Wnk!
 
Dat1 = "C:\EinBild.jpeg"
If Dir$(Dat1) = "" Then
  MsgBox "Datei nicht gefunden:" & vbCr & Dat1, vbOKOnly + vbExclamation
  Exit Sub
End If
Pi = 4 * Atn(1)
For i = 0 To 2
  Wnk = 2 * Pi / 3 * i
  With Figur(i)
    .x = 200 + 100 * Cos(Wnk)
    .y = 150 - 100 * Sin(Wnk)
  End With
Next i
With Picture1
  .AutoSize = True
  .ScaleMode = vbPixels
  Set .Picture = LoadPicture(Dat1)
  .AutoRedraw = True
  .FillStyle = vbFSSolid
  .ForeColor = vbWhite
  .FillColor = vbBlue
  Call Polygon(.hDC, Figur(0), 3)
  .Refresh
End With
 
End Sub

Gruss,

Zardoz