Проблем с Visual Basic

[ishizu]

Здравей те, трябва ми малко помощ за една задача на VB.Задачата е следната : в една форма да се състявят следните менюта-фигури,цвят,движение и скорост.Проблема идва от това че не мога да си измисля правилно функцията за движение.Попринцип самата задача трябва да изобразява фигура чрез shape и когато натисна up,down,left или right тя да се мести в суответната посока.Единствено това не се сещам от задачата .

 

Това сам измислила за up:

if Shape1.Top > 0 Then

Shape1.Top = Shape1.Top - 50

Else

Shape1.Visible = False

tmr1.Enabled = False

Shape1.Top = 0

Shape1.Left = Me.ScaleWidth - Shape1.Width

Shape1.Visible = True

tmr1.Enabled = True

End If

И функцията работи ,но когато стигне долу трябва да започне да се движи на ляво,после нагоре и тн.

Благодаря!

[VIS]

С "леко" закъснение, но кажи дали си го измислила или да се помъчим и ние :Р