参考答案

Private Sub Form_Click()
    'Form1.C1.Left = 100 + Me.C1.Left
    'Me.C1.Top = 100 + Form1.C1.Top
    C1.Move 100 + C1.Left, 100 + C1.Top
End Sub