代码意思是点击下list左键就让text1跟着鼠标走,杂弄呢?试了好多次就是不行。Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim pt As POINTAPI
GetCursorPos pt If Button = 1 Then
    intMoveStart = List1.ListIndex
    List1.MousePointer = 5
    Label1.Caption = List1.list(List1.ListIndex)
    Text1.Text = " " & List1.list(List1.ListIndex)
    Text1.Width = Label1.Width + 200 '利用下Label1设置Text1的宽度
   Text1.Move pt.X, pt.Y
    Text1.Visible = True
    isMove = True
End If
If Button = 2 Then
      Form2.PopupMenu zdxx
    End If
End Sub