Zitat:

man sollte mittels drop down aBstände wählen können

Zitat:

giBt es nicht sowas wie einen allgemeinen code wo man jede formel einsetzten kann?

Zitat:

... wo dann punkte auf einer geraden gesetzt werden

Zitat:

... woBei der radius um den punkt fix ist

' Controls: 1 * Picturebox, 1 * Line-Control
Option Explicit
 
Private Sub Form_Load()
  Me.ScaleMode = vbPixels
  Me.WindowState = vbMaximized
  With Picture1
    .ScaleMode = vbPixels
    .BackColor = vbBlack
    .Move 4, 4, 640, 480
    .AutoRedraw = True
  End With
  With Line1
    .BorderStyle = vbDashDot
    .BorderColor = vbYellow
    Set .Container = Picture1
    .Visible = False
  End With
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  With Line1
    If Button = vbLeftButton Then
      If .Visible = True Then Picture1.Line (.X1, .Y1)-(.X2, .Y2), vbRed
      .X1 = X
      .Y1 = Y
      .X2 = X
      .Y2 = Y
      .Visible = True
      Picture1.Line (X - 4, Y - 4)-(X + 4, Y + 4), vbWhite
      Picture1.Line (X - 4, Y + 4)-(X + 4, Y - 4), vbWhite
    ElseIf Button = vbRightButton Then
      .Visible = False
    End If
  End With
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  If Line1.Visible = True Then
    Line1.X2 = X
    Line1.Y2 = Y
  End If
End Sub

Gruss,

Zardoz