Apollo 18: The Moon Missions/990125_1647.ISO/Docking/CALIBRAT/JOYTEST1.FRM

Text File | 1996-07-07 | 17KB | 537 lines

VERSION 4.00
Begin VB.Form Form1
   Appearance      =   0  'Flat
   BackColor       =   &H00C0C0C0&
   Caption         =   "Joystick Example"
   ClientHeight    =   6405
   ClientLeft      =   1035
   ClientTop       =   1650
   ClientWidth     =   6765
   BeginProperty Font
      name            =   "MS Sans Serif"
      charset         =   1
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Height          =   6810
   Left            =   975
   LinkTopic       =   "Form1"
   ScaleHeight     =   6405
   ScaleWidth      =   6765
   Top             =   1305
   Width           =   6885
   Begin VB.CommandButton Command1
      Caption         =   "Set Center"
      Height          =   495
      Left            =   2190
      TabIndex        =   26
      Top             =   4335
      Width           =   1215
   End
   Begin VB.CommandButton btnCancel
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   4620
      TabIndex        =   1
      Top             =   2520
      Width           =   1095
   End
   Begin VB.Timer Timer1
      Interval        =   22
      Left            =   5700
      Top             =   0
   End
   Begin VB.PictureBox picBackground
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00008000&
      ForeColor       =   &H80000008&
      Height          =   2715
      Left            =   240
      ScaleHeight     =   2685
      ScaleWidth      =   4005
      TabIndex        =   0
      Top             =   240
      Width           =   4035
      Begin VB.Image imgJoyCursor
         Appearance      =   0  'Flat
         Height          =   165
         Left            =   1140
         Picture         =   "JOYTEST1.frx":0000
         Top             =   1320
         Width           =   165
      End
      Begin VB.Label lblButton
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Button 4"
         ForeColor       =   &H80000008&
         Height          =   255
         Index           =   3
         Left            =   3000
         TabIndex        =   4
         Top             =   2340
         Width           =   915
      End
      Begin VB.Label lblButton
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Button 3"
         ForeColor       =   &H80000008&
         Height          =   255
         Index           =   2
         Left            =   60
         TabIndex        =   6
         Top             =   2340
         Width           =   915
      End
      Begin VB.Label lblButton
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Button 2"
         ForeColor       =   &H80000008&
         Height          =   255
         Index           =   1
         Left            =   3000
         TabIndex        =   5
         Top             =   60
         Width           =   915
      End
      Begin VB.Label lblButton
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Button 1"
         ForeColor       =   &H80000008&
         Height          =   255
         Index           =   0
         Left            =   60
         TabIndex        =   3
         Top             =   60
         Width           =   915
      End
   End
   Begin VB.Label Label20
      AutoSize        =   -1  'True
      Caption         =   "bottom y limit"
      ForeColor       =   &H00FFFF00&
      Height          =   195
      Left            =   5115
      TabIndex        =   36
      Top             =   5535
      Width           =   1125
   End
   Begin VB.Label Label19
      AutoSize        =   -1  'True
      Caption         =   "top y limit"
      ForeColor       =   &H00FFFF00&
      Height          =   195
      Left            =   5325
      TabIndex        =   35
      Top             =   4560
      Width           =   825
   End
   Begin VB.Label Label18
      AutoSize        =   -1  'True
      Caption         =   "right x limit"
      ForeColor       =   &H00FFFF00&
      Height          =   195
      Left            =   405
      TabIndex        =   34
      Top             =   5610
      Width           =   930
   End
   Begin VB.Label Label17
      AutoSize        =   -1  'True
      Caption         =   "left x limit"
      ForeColor       =   &H00FFFF00&
      Height          =   195
      Left            =   480
      TabIndex        =   33
      Top             =   4710
      Width           =   825
   End
   Begin VB.Label Label16
      Caption         =   "Label16"
      Height          =   495
      Left            =   5115
      TabIndex        =   32
      Top             =   5835
      Width           =   1215
   End
   Begin VB.Label Label15
      Caption         =   "Label15"
      Height          =   495
      Left            =   5085
      TabIndex        =   31
      Top             =   4905
      Width           =   1215
   End
   Begin VB.Label Label14
      Caption         =   "Label14"
      Height          =   495
      Left            =   285
      TabIndex        =   30
      Top             =   5850
      Width           =   1290
   End
   Begin VB.Label Label13
      Caption         =   "Label13"
      Height          =   495
      Left            =   360
      TabIndex        =   29
      Top             =   4980
      Width           =   1215
   End
   Begin VB.Label Label12
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFF00&
      Caption         =   "Label12"
      ForeColor       =   &H000000FF&
      Height          =   195
      Left            =   4065
      TabIndex        =   28
      Top             =   4365
      Width           =   690
   End
   Begin VB.Label Label11
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFF00&
      Caption         =   "Label11"
      ForeColor       =   &H000000FF&
      Height          =   195
      Left            =   720
      TabIndex        =   27
      Top             =   4320
      Width           =   690
   End
   Begin VB.Label Label10
      Caption         =   "Label10"
      ForeColor       =   &H0000C000&
      Height          =   495
      Left            =   4485
      TabIndex        =   25
      Top             =   3630
      Width           =   1215
   End
   Begin VB.Label Label9
      Caption         =   "Label9"
      ForeColor       =   &H0000C000&
      Height          =   495
      Left            =   3060
      TabIndex        =   24
      Top             =   3645
      Width           =   1215
   End
   Begin VB.Label Label8
      Caption         =   "Label8"
      ForeColor       =   &H0000C000&
      Height          =   495
      Left            =   1605
      TabIndex        =   23
      Top             =   3675
      Width           =   1215
   End
   Begin VB.Label Label7
      Caption         =   "Label7"
      ForeColor       =   &H0000C000&
      Height          =   495
      Left            =   135
      TabIndex        =   22
      Top             =   3630
      Width           =   1215
   End
   Begin VB.Label Label6
      AutoSize        =   -1  'True
      Caption         =   "Left"
      Height          =   19