Like this ?
Graphics 640, 480, 32, 2 SetBuffer BackBuffer() Global Cx# = 300 Global Cy# = 200 While Not KeyHit(1) Angle = Angle + 1 ;the center of the coordinate system Plot Cx, Cy ;these variables are the coordinates of the line, ;hich needs to be turned arround the center of ;the coordinate system x1 = -50 y1 = 80 x2 = 50 y1 = 80 ;(they can be ANYTHING besides this) p1x = Cx + x1 * Cos( Angle ) + y1 * Sin( Angle ) p1y = Cy + y1 * Cos( Angle ) - x1 * Sin( Angle ) p2x = Cx + x2 * Cos( Angle ) + y2 * Sin( Angle ) p2y = Cy + y2 * Cos( Angle ) - x2 * Sin( Angle ) ;just draw it Line p1x, p1y, p2x, p2y Flip Cls Wend End