Как сделать так, чтобы фигура двигалась вверх, а затем возвращалась внизу в верхней части экрана в Visual Basic.NET?

Question

Я могу заставить форму опускаться и снова появляться наверху, но я не могу понять, как заставить ее работать, поднимаясь.Любая помощь?

Это мой код для отказа:

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

Answer 1

Это должно работать в обоих направлениях ...

If downwards Then
    shpBar.Top += 50
    If shrBar.Bottom >= Me.Height Then
        shpBar.Top = 0
    End If
Else
    shpBar.Top -= 50
    If shrBar.Top <= Me.Top Then
        shpBar.Top = Me.Height - shpBar.Height
    End If
End If

Answer 2

Вы не опубликовали код, который не работает, что является важной частью, поэтому это может быть то, что у вас уже есть:

If shpBar.Top > Me.Height Then
    shpBar.Top -= 50
Else
    shpBar.Top = Me.Height
End If

Это работает?