okay as you people might know in order to move a image box left you minus 100 of the left well how come this doesn't work?
Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 52 And step = 1 And thrand.Left < Image1.Left And thrand.Left + thrand.Width < osweet.Left Then
thrand.Left = Val(thrand.Left) - Val(a)
thrand.Picture = Form3.lefta.Picture
End If
If KeyAscii = 54 And step = 1 And thrand.Left + thrand.Width < osweet.Left Then
thrand.Left = Val(thrand.Left) + Val(a)
thrand.Picture = Form3.right.Picture
End If
If step = 1 And KeyAscii = 56 And thrand.Top <= Image1.Top Then
thrand.Move thrand.Top + 100
thrand.Picture = Form3.up.Picture
End If

End Sub

moving right works though