只要Private Sub Command1_Click()Dim a As CommandButtonSet a = Command1a.Left = 50End Sub即可
as CommandButton