I can get a shape to go down and reappear at the top but I can't figure out how to get it to work going up. Any help?

This is my code for going down:

```
    If shpBar.Top + shpBar.Height < Me.Height Then
        shpBar.Top += 50
    Else
        shpBar.Top = 0
    End If

```