Taj tvoj kod je tacan i treptaje sa njim nemozes maknut jedino to mozes rijesiti seljackom forom a to je da postavis 10 slika i sve su osim jedne visible=false i pojavlju ju se sihronizovano samo onda kada mices leftkey!!

A mozes koristiti DirectX tehniku, koja je mrvicu teza, ali ti onda ide sve glatko. Isto, ukoliko koristis DirectX tehniku, mozes imati igru recimo u prozoru, ne samo fullscreen.

E ovako :
Pocinjem sada da radim sa directX-om u VB-u pa ako neko ima nesto da kaze sto bi mi pomoglo (neki sajt ili nesto drugo) bio bi mu ZAHVALAN :!!:

POZDRAV

Nadji bitblt primere na netu i zajebi DirectX ako ne zelis da provedes zivot buljeci u njega (uceci DirectX)
Bitblt je API funcija i 2D stvari je strava ! (koristi GDI)

Malo pre sam pdgovorio na slicno pitanje....

Neznam ovako napamet ali mislim da neki od slicnih primjera koji ti trazis nalaze se u knjizi VB korak po korak-Cet izdanje uz nju dolazi i CD mislm da bi sa tom knjigom ili CR-Romom mogao da rijesis svoj problem

Pozdrav

Uradio sam primjer na koi bi trebao da zadovolji to sto ti trazis...

Kod ide ovako a ako nebude nesto radilo onda mi se javi pa cu da ti posaljem primjer na E-Mail :

Option Explicit

Const KEY_LEFT = 37
Const KEY_UP = 38
Const KEY_RIGHT = 39
Const KEY_DOWN = 40
Dim iDir As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
iDir = KeyCode
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
iDir = 0
Obj.Picture = imgStill.Picture
End Sub

Private Sub Form_Load()
Dim sPath As String

sPath = App.Path & "\"
imgStill.Picture = LoadPicture(sPath & "still.gif")
imgUp.Picture = LoadPicture(sPath & "up.gif")
imgDown.Picture = LoadPicture(sPath & "down.gif")
imgLeft.Picture = LoadPicture(sPath & "left.gif")
imgRight.Picture = LoadPicture(sPath & "right.gif")

iDir = 0
Obj.Picture = imgStill.Picture
End Sub

Private Sub Timer1_Timer()
Dim iLeft As Integer, iTop As Integer
iLeft = Obj.Left
iTop = Obj.Top
Select Case iDir
Case KEY_LEFT
If iLeft < 10 Then
'hit wall
Else
iLeft = iLeft - 100
End If
If Not Obj.Picture = imgLeft.Picture Then Obj.Picture = imgLeft.Picture
Case KEY_UP
If iTop < 10 Then
'hit wall
Else
iTop = iTop - 100
End If
If Not Obj.Picture = imgUp.Picture Then Obj.Picture = imgUp.Picture
Case KEY_RIGHT
If iLeft + Obj.Width + 100 > Me.Width Then
'hit wall
Else
iLeft = iLeft + 100
End If
If Not Obj.Picture = imgRight.Picture Then Obj.Picture = imgRight.Picture
Case KEY_DOWN
If iTop + Obj.Height + 380 > Me.Height Then
'hit wall
Else
iTop = iTop + 100
End If
If Not Obj.Picture = imgDown.Picture Then Obj.Picture = imgDown.Picture
Case Else
If Not Obj.Picture = imgStill.Picture Then Obj.Picture = imgStill.Picture
End Select

Obj.Move iLeft, iTop

End Sub

Pozdrav !