Реферат: Игра на ловкость Змейка

YDir = -1

End Sub

Private Sub Down_Click()

XDir = 0

YDir = 1

End Sub

Private Sub Left_Click()

XDir = -1

YDir = 0

End Sub

Private Sub Right_Click()

XDir = 1

YDir = 0

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Форма_Змейка.Enabled = True

Форма_Змейка.Form_Load

ИнформационнаяФорма.Hide

End Sub

ИнформационнаяФорма

Dim НЛ As String

-------------------------------------------------------------------------------------------------

Private Sub Avtor_Click()

НЛ = Chr(10) & Chr(13)

AboutAvtor.Label4.Caption = "Все права защищены," & НЛ & _

"использование в комерческих целях преследуется по закону"