shape의 Height가 줄어들었다가 커졌다가

원의 Height가 50 미만이면

커지고

원의 Height 가 4500 미만이면

작아져서

커졌다 작아졌다를 반복하게 하고 싶네요

어떻게 해야할까요?
제가한 코드

Private Sub Timer1_Timer()
If Shape1.Height 50 Then
Do While Shape1.Height 4575
Shape1.Height = Shape1.Height + 30
Loop
End If
If Shape1.Height 4500 Then
Do While Shape1.Height 50
Shape1.Height = Shape1.Height - 30
Loop
End If