A friend wanted to make the same game and asked me the same thing... I however told him to make an array to store the points and draw them by simple PSet-ing. He made it and it became nearly the same as on mobile phones
Code:
Type tCoord2D
  x as Long
  y as Long
End Type

Type tSnake
  PointCount as Long
  Point() as tCoord2D

  Name as String
  Score as Long
End Type

Global SnakeCount as Long
Global Snake() as tSnake
Got the idea?