XPost: comp.lang.basic.visual   
   From: otie_nospam@adelphia.net   
      
   I have a circle that displays information in 1-degree increments -   
   there are 90 such increments that comprise the circle. I need a   
   pointer within the circle that rotates. The pointer must include areas   
   to the left and right of the center line so that a person is better   
   able to see when something is within 2 or 3 or 4 or 5 marks (degrees)   
   of its neighbors. I can use a line and get it to rotate - that is no   
   problem. The problem is drawing an arc and redrawing that arc every   
   time I rotate the pointer. The circle command allows me to draw an arc   
   as a pie-section. That is wonderful. But when I rotate the pointer,   
   how do I get the previous arc to go away, then draw the new arc   
   without having to redraw the entire form, which is too time-consuming?   
   I have tried a shape control, but that does not allow pie-sections to   
   be drawn. I have experimented with a picture box, an image box, and a   
   frame, but none of these are transparent and allow me to see something   
   underneath them (if I put my line control(s) within these containers).   
      
   In effect, all I want to do is keep drawing and redrawing new   
   pie-sections on top of my form when I rotate my pointer around the   
   wheel - without having to redraw everything from scratch each time I   
   move the pointer/arc.   
      
   Thanks for your help.   
      
   I have tried the below and it does not do what I want regarding   
   erasing the previous info before drawing the new info (in effect, is   
   there a cls command for the circle?):   
      
       Me.DrawMode = 12   
       Me.DrawStyle = 5   
       Me.FillColor = QBColor(14)      'gives a soft blue color on a gray   
   background form   
       Me.FillStyle = 0   
      
       Me.Circle (0, 0), outer_radius%, QBColor(14), -start_angle * PI /   
   180, -end_angle * PI / 180   
      
      
      
   ---   
   Allen   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)