'Benötigt werden: 2 * Image
'Steuerung über Cursortasten!
Private Breite%, Höhe%
 
Private Sub Form_Activate()
  Me.Width = 308 * Screen.TwipsPerPixelX
  Me.Height = 327 * Screen.TwipsPerPixelY
  Me.BackColor = 0
  Me.ScaleMode = 3
  Set Image1.Picture = LoadPicture("C:\Landkarte.bmp") 'Hintergrundbild laden
  Set Image2.Picture = LoadPicture("C:\Player") 'Bild der Spielfigur laden
  Breite = Image1.Width
  Höhe = Image1.Height
  Image1.Move 0, 0
  Image2.Move (Me.ScaleWidth - Image2.Width) / 2, (Me.ScaleHeight - _
    Image2.Height) / 2
  Image2.ZOrder
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim X%, Y%, XR%, YR%
  Select Case KeyCode
    Case vbKeyLeft: XR = 1
    Case vbKeyRight: XR = -1
    Case vbKeyUp: YR = 1
    Case vbKeyDown: YR = -1
  End Select
  With Image1
  X = .Left + XR * 8
  Y = .Top + YR * 8
  If X > 0 Then X = 0
  If Y > 0 Then Y = 0
  If X < Me.ScaleWidth - Breite Then X = Me.ScaleWidth - Breite
  If Y < Me.ScaleHeight - Höhe Then Y = Me.ScaleHeight - Höhe
  .Move X, Y
  End With
  Me.Caption = " X=" & (Image2.Left - X) & Space(10) & "Y=" & (Image2.Top - Y)
End Sub