如何动态生成控件呢？比如:textbox,label.....

Question

Dim label As labelPrivate Sub Form_Load()
   Set label = Me.Controls.Add("vb.label", "label1")
   label.Visible = True
   label.Caption = "label1"
   label.Top = 100
   label.Left = 100
End Sub

Answer 1

用load +控键名啊   看MSDN

Answer 2

给分方法：http://www.csdn.net/help/over.asp

Answer 3

Dim px
Dim py
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 1 Then
    px = X
    py = Y
    Command1.Drag vbBeginDrag
   End If
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
  Source.Move (X - px), (Y - py)
  Command1.Drag vbEndDrag
End Sub