VERSION 5.00
Begin VB.Form f_map1 
   BackColor       =   &H80000012&
   Caption         =   "Prophétie of the alien"
   ClientHeight    =   8580
   ClientLeft      =   165
   ClientTop       =   465
   ClientWidth     =   11880
   Icon            =   "f_map1.frx":0000
   LinkTopic       =   "Form3"
   ScaleHeight     =   8580
   ScaleWidth      =   11880
   StartUpPosition =   1  'CenterOwner
   Begin VB.Image alien 
      Height          =   600
      Left            =   8300
      Picture         =   "f_map1.frx":030A
      Stretch         =   -1  'True
      Top             =   7800
      Width           =   795
   End
   Begin VB.Image Image2 
      Height          =   8595
      Left            =   -240
      Picture         =   "f_map1.frx":2165
      Stretch         =   -1  'True
      Top             =   0
      Width           =   12120
   End
End
Attribute VB_Name = "f_map1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then alien.Top = alien.Top + 500
If KeyCode = 38 Then alien.Top = alien.Top - 500
If KeyCode = 37 Then alien.Left = alien.Left - 500
If KeyCode = 39 Then alien.Left = alien.Left + 500
If alien.Left < 0 Then alien.Left = alien.Left + 500
If alien.Left > 11300 Then alien.Left = alien.Left - 500
If alien.Top > 7800 Then alien.Top = alien.Top - 500
If alien.Top < 0 Then alien.Top = alien.Top + 500
End Sub