Moving a shape

[BobTheGoldfish]

Ok I am new to vb and i am struggling trying to get a shape object to move across the screen.
So far i have made a timer that makes a label count up, but i cannot get the shape to move to it, this is the current code:

Private Sub Timer1_timer()
Shape1.move (label1.caption)
Label1.caption = Str(Val(Label1.caption) + Val(1))
End Sub

Any ideas?? If there is a better way of doing it then trhis would be good

Cheers...

[Sastraxi]

Try setting Me.ScaleMode = 3 first, but not in the Timer routine; set it in the form view. Anyways, you could use this: Shape1.Left = Val(Label1.Caption), or Shape1.Top if you would like to move down.

[opus]

Hy, I also started using shapes, that moved around. But soon you wil find that they start to flicker. consider to use the 'old' line and circle methods to paint a new picture in each timer-cycle

[JaredM]

Try using the TOP and LEFT properties. If you want it to move up, subtract it's TOP property, or down add it. Same for the left. Subtract the value to get it to go the direction it's named as. (There are no RIGHT and DOWN properties, they're part of the same thing, think of LEFT and TOP and X, Y)

Private Sub Timer1_Timer()
     Shape.Top = Shape.Top - 10
End Sub

[DiGiTaIErRoR]

Instead of using a label you may want to use a Public/Private or Static varible.

Also you're using twips, usually 15 twips=1 pixel but you can use screen.twipsperpixelx/y.

For any intensive purpose though you'd want to set the scale of your form(or picturebox) to pixels(3).

[JaredM]

usually 15 twips=1 pixel

I thought twips are bigger than pixels. A twip is 1/1440th of an inch. And a the number of pixels on your monitor is determined by you resolution too.

[BobTheGoldfish]

Cheers all this helps loads.

[Sastraxi]

PixelX = TwipX / Screen.TwipsPerPixelX
PixelY = TwipY / Screen.TwipsPerPixelY

That's how you convert.