如何在屏幕上画虚线矩形框？

 Dim   preX   As   Single,   preY   As   Single  
  Dim   x0   As   Single,   y0   As   Single  
          Dim   preDrawStyle   As   Long,   preDrawMode   As   Long  
  Private   Sub   Form_MouseDown(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
          Select   Case   Button  
          Case   1  
                  x0   =   X  
                  y0   =   Y  
                  preX   =   X  
                  preY   =   Y  
          Case   2  
                  preDrawMode   =   Form1.DrawMode  
                  preDrawStyle   =   Form1.DrawStyle  
                  Form1.DrawStyle   =   2  
                  Form1.DrawMode   =   10  
                  Form1.Line   (x0,   y0)-(preX,   preY),   ,   B  
                  Form1.DrawStyle   =   preDrawStyle  
                  Form1.DrawMode   =   preDrawMode  
          End   Select  
  End   Sub  
   
  Private   Sub   Form_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
          If   Button   =   1   Then  
                  preDrawMode   =   Form1.DrawMode  
                  preDrawStyle   =   Form1.DrawStyle  
                  Form1.DrawStyle   =   2  
                  Form1.DrawMode   =   10  
                  Form1.Line   (x0,   y0)-(preX,   preY),   ,   B  
                  preX   =   X  
                  preY   =   Y  
                  Form1.Line   (x0,   y0)-(preX,   preY),   ,   B  
                  Form1.DrawStyle   =   preDrawStyle  
                  Form1.DrawMode   =   preDrawMode  
          End   If  
  End   Sub