Option   Explicit  
  Dim   xx   As   Integer  
  Dim   yy   As   Integer  
  Private   Sub   Form_MouseDown(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
  xx   =   X  
  yy   =   Y  
  End   Sub  
   
  Private   Sub   Form_MouseUp(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
  Line   (xx,   yy)-(X,   Y),   ,   B  
  End   Sub  
  二，  
  Option   Explicit  
  Dim   xx   As   Integer  
  Dim   yy   As   Integer  
   
   
  Private   Sub   Form_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)  
  Line   (xx,   yy)-(X,   Y),   ,   B  
  End   Sub