How come my 'move' won't work???

[Cndn]

I know that this is a very basic question, but for some reason my code for moving things isn't working how it's supposed to! Will you just quickly give me some examples so I can understand what I'm doing wrong.

Example #1: How would I move an object up 150 units?

Example #2: How would I move an object down 150 units?

Example #3: How would I move an object right 150 units, and down 150 units?

 

[JustinEzequiel]

Private Sub Command1_Click()
'Example #1: How would I move an object up 150 units?
With Command1
.Move .Left, .Top - 150
MsgBox "move up 150"
'Example #2: How would I move an object down 150 units?
.Move .Left, .Top + 150
MsgBox "move down 150"
'Example #3: How would I move an object right 150 units, and down 150 units?
.Move .Left + 150, .Top + 150
MsgBox "move right & down 150"
End With
End Sub