vb贪食蛇源代码

vb小游戏定义蛇的运动速度枚举值PrivateEnumtpsSpeedQUICKLY=0SLOWLY=1EndEnum'定义蛇的运动方向枚举值PrivateEnumtpsDirectionD_UP=38D_DOWN=40D_LEFT=37D_RIGHT=39EndEnum'定义运动区域4个禁区的枚举值PrivateEnumtpsForbiddenZoneFZ_TOP=30FZ_BOTTOM=5330FZ_LEFT=30FZ_RIGHT=5730EndEnum