Private Sub Form_Load()
  Picture1.ScaleMode = vbPixels
  Picture1.AutoRedraw = True
End Sub
 
Private Sub SetzePunkt(Ziel As PictureBox, ByVal XPos&, ByVal YPos&, Farbe&)
  Dim Rot1&, Gruen1&, Blau1&, Rot2&, Gruen2&, Blau2&, Farbe2&
 
  Rot1 = (Farbe And vbRed)
  Gruen1 = (Farbe And vbGreen) \ &H100
  Blau1 = (Farbe And vbBlue) \ &H10000
 
  Farbe2 = Ziel.Point(XPos, YPos)
  Rot2 = (Farbe2 And vbRed)
  Gruen2 = (Farbe2 And vbGreen) \ &H100
  Blau2 = (Farbe2 And vbBlue) \ &H10000
 
  Ziel.PSet (XPos, YPos), RGB((Rot1 + Rot2) / 2, (Gruen1 + Gruen2) / 2, (Blau1 _
    + Blau2) / 2)
End Sub

Gruss,

Zardoz