Private desiredTop As Integer

Private Sub Command1_Click()
	desiredTop = 60
End Sub

Private Sub Command2_Click()
	desiredTop = 30
End Sub

Private Sub Timer1_Timer()
	If Picture1.Top < desiredTop Then
		Picture1.Top = Picture1.Top + 1
	Else If Picture1.Top > desiredTop Then
		Picture1.Top = Picture1.Top - 1
	End If
End Sub