// call like this:    DrawDushedPatternLine g,0,0,width,height,10

Sub DrawDushedPatternLine(g as graphics,x1 as Integer,y1 as Integer,x2 as Integer,y2 as Integer, partlen as Integer)
  dim x,y,ox,oy as Double
  dim dx,dy as Double
  dim w,h,d as Double
  dim b as Boolean
  
  w=x2-x1
  h=y2-y1
  
  d=sqrt(w*w+h*h)
  
  dx=w/d*partlen
  dy=h/d*partlen
  
  b=true
  x=x1
  while (x<x2) and (y<y2)
    ox=x
    oy=y
    
    x=x+dx
    y=y+dy
    
    if b then
      g.DrawLine ox,oy,x,y
    end if
    
    b=not b
  wend
  
  
End Sub