Nuevo en programacion, ayuda en crear funciones

sleep o wait creo q es

Tienes que pasarle un parámetro a la función, en el caso que decías, creo que por valor, dependiendo del lenguaje que uses tendrá una sintaxis u otra, pero para que te hagas una idea, te lo incluyo a la fucion del click:

Private Sub btn_juego_Click(ByVal retardo as integer)
Pic1.Cls
x = 10: y = 100
While (retardo>0)

If x > 604 Then Exit Do
Pic1.Line (x, y)-(x + 1, y)
x = x + 1: y = y
Pic1.Refresh
DoEvents
retardo--

wend
End Sub

P.D: Eso si q es un profesor, enseñando visual (creo), en clase de informática de 1º de Bachiller, quien lo hubiera pillado , yo en Bachiller daba Logo y Basic xDDD eso Logo ahiiii jaejejaaej levantaTortuga, bajaTortuga, avanzaTortuga... dios que viejo que soy

Edit, se me olvidaba, cuando llames al procedimiento tienes que enviarle el valor del parametro claro:

En este caso como creo que lo estas haciendo con visual para no liarte a la hora de llamar al evento click pasandole parámetros debería quedarte algo así:

Private Sub btn_juego_Click()
Pic1.Cls
x = 10: y = 100
.
.
.
retardo(1000)
End Sub

public sub retardo(Byval r as integer)
{
while (r>0)
.
.
r--
wend
}
end sub

Otra cosa, FUNCION para cuando devuelvas algun valor, PROCEDIMIENTO, si no devuelves nada

#5, la verdad es que me has liado un poquitin xD

Tu codigo no me va me da error... pero bueno! no pasa nada, he creado un bucle un poco tonto para retrasar la velocidad de la linea de esta manera:

Private Sub btn_juego_Click()
Dim i As Integer
Pic1.Cls
x = 10: y = 100
Do
If x > 604 Then Exit Do
Pic1.Line (x, y)-(x + 1, y)
x = x + 1: y = y
For i = 1 To 1000
Print " "
Next i
Pic1.Refresh
DoEvents
Loop
End Sub

Se que es un poco tonto, pero funciona xDD

Ahora otra pregunta, como hago para que al presionar la tecla A, S, D o W la serpiente se mueva para dichas direcciones? ayer me pegue toda la tarde pensando y probando, pero nada

Y otra cosa, para variar la velocidad de la serpiente con un scroll? Es decir, incrementar el bucle mas o menos, como si fuera una difilcudad

Thx por la ayuda

-DnT- mi codigo te da error pq no esta acabao, son solo ejemplos, de como pasar parametros a funciones, en el codigo qyue pones ahora te funciona pero no las usas

Para controlar el tema de las pulsaciones mirate el evento onkeyPress, es que no me acuerdo exactamente cual era en vb6, creo que ese.

La cuestion es que iwal que haces un onclick a un boton, cada vez que pulses una tecla, compruebes si esta es una A, S, etc.. y dependiendo de esta peus mandarás a la serpiente para un lado o para otro

En vb.net sería así:

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
MsgBox(e.KeyChar)
End Sub

te recomiendo que te hagas una variable en plan "direccion" y que la serpiente se mueva siguiendo esa direccion (subiendo y bajando en el array), y con las pulsaciones de teclas, se cambie esa variable