Apollo 18: The Moon Missions/990125_1647.ISO/Landing/LM4/DOCKING.FRM

Text File | 1996-06-07 | 44KB | 1,259 lines

VERSION 4.00
Begin VB.Form docking
   Caption         =   "Docking with the Lunar Module"
   ClientHeight    =   6030
   ClientLeft      =   1275
   ClientTop       =   1515
   ClientWidth     =   6720
   Height          =   6435
   Left            =   1215
   LinkTopic       =   "Form1"
   ScaleHeight     =   6030
   ScaleWidth      =   6720
   Top             =   1170
   Width           =   6840
   Begin VB.PictureBox PicSave
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   8625
      ScaleHeight     =   96
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   100
      TabIndex        =   21
      Top             =   7305
      Width           =   1500
   End
   Begin VB.PictureBox PicWork
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   6975
      ScaleHeight     =   96
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   100
      TabIndex        =   20
      Top             =   7275
      Width           =   1500
   End
   Begin VB.PictureBox PicMask
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   2505
      Left            =   2460
      Picture         =   "DOCKING.frx":0000
      ScaleHeight     =   167
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   195
      TabIndex        =   19
      Top             =   7530
      Width           =   2925
   End
   Begin VB.PictureBox PicImage
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   2520
      Left            =   5295
      Picture         =   "DOCKING.frx":8028
      ScaleHeight     =   168
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   196
      TabIndex        =   18
      Top             =   7230
      Width           =   2940
   End
   Begin VB.PictureBox auxcon
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1440
      Index           =   5
      Left            =   11295
      Picture         =   "DOCKING.frx":101E8
      ScaleHeight     =   1440
      ScaleWidth      =   1755
      TabIndex        =   10
      Top             =   2115
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1440
      Index           =   4
      Left            =   11010
      Picture         =   "DOCKING.frx":12FB4
      ScaleHeight     =   1440
      ScaleWidth      =   1755
      TabIndex        =   9
      Top             =   1755
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1440
      Index           =   3
      Left            =   10785
      Picture         =   "DOCKING.frx":15D84
      ScaleHeight     =   1440
      ScaleWidth      =   1755
      TabIndex        =   8
      Top             =   1530
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1440
      Index           =   2
      Left            =   10590
      Picture         =   "DOCKING.frx":18B54
      ScaleHeight     =   1440
      ScaleWidth      =   1755
      TabIndex        =   7
      Top             =   1290
      Width           =   1755
   End
   Begin VB.PictureBox auxcon
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1440
      Index           =   1
      Left            =   10440
      Picture         =   "DOCKING.frx":1B924
      ScaleHeight     =   1440
      ScaleWidth      =   1755
      TabIndex        =   6
      Top             =   1005
      Width           =   1755
   End
   Begin VB.PictureBox picWorkBG
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00400000&
      DragIcon        =   "DOCKING.frx":1E6F4
      ForeColor       =   &H80000008&
      Height          =   4860
      Left            =   2895
      ScaleHeight     =   322
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   635
      TabIndex        =   5
      Top             =   7365
      Width           =   9555
   End
   Begin VB.PictureBox picBGoriginal
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   9015
      Left            =   -7320
      Picture         =   "DOCKING.frx":1E9FE
      ScaleHeight     =   599
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   799
      TabIndex        =   4
      Top             =   7215
      Width           =   12015
   End
   Begin VB.PictureBox picPitMask
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   5205
      Left            =   9795
      Picture         =   "DOCKING.frx":94142
      ScaleHeight     =   5205
      ScaleWidth      =   9600
      TabIndex        =   3
      Top             =   6555
      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            =   9765
      Picture         =   "DOCKING.frx":CA50E
      ScaleHeight     =   347
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   640
      TabIndex        =   2
      Top             =   270
      Width           =   9600
   End
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   55
      Left            =   9960
      Top             =   5865
   End
   Begin VB.PictureBox Picture4
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   7200
      Left            =   0
      Picture         =   "DOCKING.frx":10096A
      ScaleHeight     =   7200
      ScaleWidth      =   9600
      TabIndex        =   0
      Top             =   -30
      Width           =   9600
      Begin VB.PictureBox auxcon
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         Height          =   1440
         Index           =   0
         Left            =   4170
         Picture         =   "DOCKING.frx":14BDAE
         ScaleHeight     =   96
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   117
         TabIndex        =   11
         Top             =   5475
         Width           =   1755
         Begin Threed.SSCommand SSCommand1
            Height          =   330
            Index           =   1
            Left            =   1185
            TabIndex        =   15
            Top             =   1080
            Width           =   555
            _version        =   65536
            _extentx        =   979
            _extenty        =   582
            _stockprops     =   78