两个控件Text1,Text2Private Sub Form_Load() Text1.DragMode = 1End SubPrivate Sub Text2_DragDrop(Source As Control, X As Single, Y As Single) Text2 = Source.TextEnd Sub
兔子很强大