Dim X1!, Y1!, X2!, Y2!, X3!, Y3!
  Dim S!, i&, DX!, DY!, StepW&
 
  X1 = 100 ' X Punkt 1
  Y1 = 70 ' Y Punkt 1
  X2 = 400 ' X Punkt 2
  Y2 = 200 ' Y Punkt 2
  DX = X2 - X1
  DY = Y2 - Y1
  StepW = 20 ' Kreisabstand
  With Picture1
    .ScaleMode = vbPixels
    .BackColor = vbBlack
    .AutoRedraw = True
  End With
  Picture1.Line (X1, Y1)-(X2, Y2), vbBlue
  S = Sqr(DX * DX + DY * DY)
  For i = 0 To S - 1 Step StepW
    X3 = X1 + DX / S * i
    Y3 = Y1 + DY / S * i
    Picture1.Circle (X3, Y3), 10, vbYellow
  Next i

Gruss,

Zardoz