Question

vb 中单击command1，label1向窗体右下角移动的代码

Answer 1

label1.Left = label1.Left +100 ’这里按默认单位 1- twip
label1.top = label1.top +100
如果是持续移动，添加一个Timer控件，设置适当的Interval值，把上述代码放到Timer事件中

Answer 2

以下是frame的，供参考
Public Function frameMove(frameTemp As Frame, Button As Integer, x As Single, y As Single)

With frameTemp
If Button = 1 Then '左键
.Left = x + .Left
.top = y + .top
End If
End With

Answer 3

Private Sub Command1_Click()
Label1.Move Me.ScaleWidth - Label1.Width, Me.ScaleHeight - Label1.Height
End Sub