主题：如何动态增加控件，并且注册事件，可以拖动控件

e.Form.Text = e.X & "|" & e.Y

MouseUp(优点：不闪烁；缺点：不能即时看到控件移动，松开鼠标时才会看到新位置的控件）

If e.X & "|" & e.Y <> e.Form.Text Then
    e.Sender.Left = e.X + e.Sender.Left - e.Form.Text.Split("|")(0)   
    e.Sender.Top = e.Y + e.Sender.Top - e.Form.Text.Split("|")(1)  
End If

MouseMove(优点：能即时看到控件移动；缺点：控件较大时，会有闪烁。）

If e.Button = MouseButtons.Left Then
    If e.X & "|" & e.Y <> e.Form.Text Then
        e.Sender.Left = e.X + e.Sender.Left - e.Form.Text.Split("|")(0)
        e.Sender.Top = e.Y + e.Sender.Top - e.Form.Text.Split("|")(1)
    End If
End If