For i = 1 To 10
   For a = 1 To 10
      PosX = a * Abstand
      PosY = i * Abstand
 
      If InCircle(PosX, PosY) Then Point(PosX, PosY)
   Next a
Next i
 
Private Function InCircle(X as Single, Y as Single) as Boolean
   If sqr((Int(X) ^ 2) + (Int(Y) ^ 2) <= Radius Then Return True Else Return _
     False
End Function