Private Type xy:x As Long:y As Long:End Type

Dim Z(99)As xy,k,L,r,p As xy

Sub Form_KeyDown(c As Integer,s As Integer):k=c:End Sub

Sub Form_Unload(c As Integer):End:End Sub

Sub Form_Load():m=10:v=5:ScaleMode=3:AutoRedraw=-1:Show

Line(v,v)-(m*v,m*v),,B:DrawWidth=v:Picture=Image

0:c=0:L=1:Do:t=Timer:Do While Timer-t<1/15:DoEvents:Loop

r=r-1/20:If r<0 Then r=Rnd*9:p.x=Rnd*m-1:p.y=Rnd*m-1:q=q+1:q=q Mod 3

h=Mid(652800025565535,q*5+1,5)

With Z(0):Select Case k:Case 37:.x=.x-1:Case 38:.y=.y-1:Case 39:.x=.x+1:Case 40:.y=.y+1

End Select

If p.x=.x And p.y=.y Then:L=L-(q=0):L=L+(q=1):c=c-(q=2):p.x=-9

If L<=0 Or .x<0 Or .x>m-1 Or .y<0 Or .y>m-1 Then MsgBox c:.x=0:.y=0:k=0:GoTo 0

Caption="L="&L &" P="& c:Cls:End With:PSet(p.x*v+v,p.y*v+v),h

For i=0 To L-1:Z(L-i)=Z(L-i-1):PSet(Z(L-i).x*v+v,Z(L-i).y*v+v),vbBlue:Next:Loop:End Sub