Apollo 18: The Moon Missions/990125_1647.ISO/Docking/DOCKING2.BAK

Text File | 1996-09-05 | 38KB | 1,230 lines

VERSION 4.00
Begin VB.Form docking
   AutoRedraw      =   -1  'True
   Caption         =   "Docking with the Lunar Module"
   ClientHeight    =   7185
   ClientLeft      =   1230
   ClientTop       =   1695
   ClientWidth     =   9570
   Height          =   7590
   Left            =   1170
   LinkTopic       =   "Form1"
   Picture         =   "DOCKING2.frx":0000
   ScaleHeight     =   7185
   ScaleWidth      =   9570
   Top             =   1350
   Width           =   9690
   Begin VB.CommandButton Command2
      BackColor       =   &H00C0C0C0&
      Caption         =   "REV"
      Height          =   375
      Index           =   1
      Left            =   5415
      TabIndex        =   21
      Top             =   6540
      Width           =   435
   End
   Begin VB.CommandButton Command2
      Caption         =   "FWD"
      Height          =   375
      Index           =   0
      Left            =   4065
      TabIndex        =   20
      Top             =   6525
      Width           =   435
   End
   Begin VB.CommandButton starlock
      Caption         =   "LOCK"
      Height          =   780
      Left            =   6495
      TabIndex        =   19
      Top             =   6180
      Width           =   2130
   End
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   495
      Left            =   9690
      TabIndex        =   18
      Top             =   6690
      Width           =   1215
   End
   Begin VB.PictureBox PicSave
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   8565
      ScaleHeight     =   96
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   16
      Top             =   7335
      Width           =   1755
   End
   Begin VB.PictureBox PicWork
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   6720
      ScaleHeight     =   96
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   117
      TabIndex        =   15
      Top             =   7335
      Width           =   1755
   End
   Begin VB.PictureBox PicMask
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   5085
      Picture         =   "DOCKING2.frx":4B444
      ScaleHeight     =   96
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   100
      TabIndex        =   14
      Top             =   7350
      Width           =   1500
   End
   Begin VB.PictureBox PicImage
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1410
      Left            =   3435
      Picture         =   "DOCKING2.frx":4DE08
      ScaleHeight     =   94
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   99
      TabIndex        =   13
      Top             =   7335
      Width           =   1485
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   5
      Left            =   10110
      Picture         =   "DOCKING2.frx":50704
      ScaleHeight     =   1425
      ScaleWidth      =   1755
      TabIndex        =   9
      Top             =   2385
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   4
      Left            =   10290
      Picture         =   "DOCKING2.frx":537D0
      ScaleHeight     =   1425
      ScaleWidth      =   1755
      TabIndex        =   8
      Top             =   1635
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   3
      Left            =   10335
      Picture         =   "DOCKING2.frx":5689C
      ScaleHeight     =   1425
      ScaleWidth      =   1755
      TabIndex        =   7
      Top             =   1215
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   2
      Left            =   9840
      Picture         =   "DOCKING2.frx":59968
      ScaleHeight     =   1425
      ScaleWidth      =   1755
      TabIndex        =   6
      Top             =   555
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1425
      Index           =   1
      Left            =   9975
      Picture         =   "DOCKING2.frx":5CA34
      ScaleHeight     =   1425
      ScaleWidth      =   1755
      TabIndex        =   5
      Top             =   135
      Width           =   1755
   End
   Begin VB.PictureBox picWorkBG
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00400000&
      DragIcon        =   "DOCKING2.frx":5FB00
      ForeColor       =   &H80000008&
      Height          =   4860
      Left            =   2775
      ScaleHeight     =   322
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   635
      TabIndex        =   4
      Top             =   7440
      Width           =   9555
   End
   Begin VB.PictureBox picBGoriginal
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   9030
      Left            =   -8415
      Picture         =   "DOCKING2.frx":5FE0A
      ScaleHeight     =   600
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   800
      TabIndex        =   1
      Top             =   7305
      Width           =   12030
   End
   Begin VB.PictureBox picPitMask
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   5205
      Left            =   9705
      Picture         =   "DOCKING2.frx":D554E
      ScaleHeight     =   5205
      ScaleWidth      =   9600
      TabIndex        =   3
      Top             =   4155
      Width           =   9600
   End
   Begin VB.PictureBox picPitSprite
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   5205
      Left            =   0
      Picture         =   "DOCKING2.frx":10BD12
      ScaleHeight     =   347
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   640
      TabIndex        =   2
      Top             =   60
      Width           =   9600
   End
   Begin VB.Timer Timer1
      Enabled         =