home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apollo 18: The Moon Missions
/
990125_1647.ISO
/
Landing
/
LM4
/
DOCKING2.FRM
< prev
next >
Wrap
Text File
|
1996-06-16
|
41KB
|
1,177 lines
VERSION 4.00
Begin VB.Form docking
Caption = "Docking with the Lunar Module"
ClientHeight = 6030
ClientLeft = 3975
ClientTop = 2115
ClientWidth = 6720
Height = 6435
Left = 3915
LinkTopic = "Form1"
ScaleHeight = 6030
ScaleWidth = 6720
Top = 1770
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 = 1440
Left = 2970
Picture = "DOCKING2.frx":0000
ScaleHeight = 96
ScaleMode = 3 'Pixel
ScaleWidth = 100
TabIndex = 19
Top = 7440
Width = 1500
End
Begin VB.PictureBox PicImage
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1440
Left = 5295
Picture = "DOCKING2.frx":25CC
ScaleHeight = 96
ScaleMode = 3 'Pixel
ScaleWidth = 100
TabIndex = 18
Top = 7230
Width = 1500
End
Begin VB.PictureBox auxcon
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 1440
Index = 5
Left = 2970
Picture = "DOCKING2.frx":4C14
ScaleHeight = 1440
ScaleWidth = 1755
TabIndex = 10
Top = 2475
Width = 1755
End
Begin VB.PictureBox auxcon
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 1440
Index = 4
Left = 2340
Picture = "DOCKING2.frx":79E0
ScaleHeight = 1440
ScaleWidth = 1755
TabIndex = 9
Top = 2505
Width = 1755
End
Begin VB.PictureBox auxcon
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 1440
Index = 3
Left = 1635
Picture = "DOCKING2.frx":A7B0
ScaleHeight = 1440
ScaleWidth = 1755
TabIndex = 8
Top = 2505
Width = 1755
End
Begin VB.PictureBox auxcon
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 1440
Index = 2
Left = 1155
Picture = "DOCKING2.frx":D580
ScaleHeight = 1440
ScaleWidth = 1755
TabIndex = 7
Top = 2460
Width = 1755
End
Begin VB.PictureBox auxcon
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 1440
Index = 1
Left = 660
Picture = "DOCKING2.frx":10350
ScaleHeight = 1440
ScaleWidth = 1755
TabIndex = 6
Top = 2445
Width = 1755
End
Begin VB.PictureBox picWorkBG
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00400000&
DragIcon = "DOCKING2.frx":13120
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 = "DOCKING2.frx":1342A
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 = "DOCKING2.frx":88B6E
ScaleHeight = 5205
ScaleWidth = 9600
TabIndex = 3
Top = 6540
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 = "DOCKING2.frx":BEF3A
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 = "DOCKING2.frx":F5396
ScaleHeight = 7200
ScaleWidth = 9600
TabIndex = 0
Top = 0
Width = 9600
Begin VB.PictureBox auxcon
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 1440
Index = 0
Left = 4110
Picture = "DOCKING2.frx":1407DA
ScaleHeight = 96
ScaleMode = 3 'Pixel
ScaleWidth = 117
TabIndex = 11
Top = 5520
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