the snake very fast goes down and I cant drive it with keys.. maybe something is wrong wrote..

well.. i don't see any hock for the keys, I don't see any way to move it with keys.. also, where do you move the snake? maybe you can slow it down pausing the program for a while?

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

ok.. if I input to program code this text? in beginning:
Dim Direction As Byte
Private Const dLEFT As Byte = 1
Private Const dUP As Byte = 2
Private Const dRIGHT As Byte = 3
Private Const dDOWN As Byte = 4

and after this:
Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 And Direction <> dRIGHT Then 'Left
  Direction = dLEFT
' Call DrawSnake(dLEFT)
ElseIf KeyCode = 38 And Direction <> dDOWN Then 'Up
  Direction = dUP
' Call DrawSnake(dUP)
ElseIf KeyCode = 39 And Direction <> dLEFT Then 'Right
  Direction = dRIGHT
' Call DrawSnake(dRIGHT)
ElseIf KeyCode = 40 And Direction <> dUP Then 'Down
  Direction = dDOWN
' Call DrawSnake(dDOWN)
End If
End Sub

is here moving or not? specifically I dont know..:( yet.. because I want to learn it..

Well, I don't know.. what happend when you run this code??

you are asking me to understand code without having the full picture, you will get better answers from me if you have specific problems. ;)

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========