Visual Basic.NETで画面の一番上に移動した後、一番下に戻るようにシェイプを移動して戻す方法はありますか？

Question

私は下に行く形を得ることができますし、トップに再表示されますが、私はそれが上がるようにする方法を理解できません。どんな助け？ が重要な部分である作業、ではないことを

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

Answer 1

あなたは、コードを投稿していないので、これはあなたがすでに持っているものかもしれ：

はこれが下って行くために私のコードです

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

これは機能しますか？

Answer 2

これは両方向に動作するはずです...

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