home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / mabry / probe11 / sample / psample.frm (.txt) next >
Encoding:
Visual Basic Form  |  1994-04-19  |  2.8 KB  |  96 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3870
  5.    ClientLeft      =   1365
  6.    ClientTop       =   1860
  7.    ClientWidth     =   4230
  8.    Height          =   4275
  9.    Left            =   1305
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3870
  12.    ScaleWidth      =   4230
  13.    Top             =   1515
  14.    Width           =   4350
  15.    Begin CheckBox Check1 
  16.       Caption         =   "Check1"
  17.       Height          =   255
  18.       Left            =   1560
  19.       TabIndex        =   5
  20.       Top             =   960
  21.       Width           =   1215
  22.    End
  23.    Begin OptionButton Option1 
  24.       Caption         =   "Option1"
  25.       Height          =   255
  26.       Left            =   1560
  27.       TabIndex        =   4
  28.       Top             =   720
  29.       Width           =   1215
  30.    End
  31.    Begin CommandButton Command2 
  32.       Caption         =   "Show Probe Dialog Box..."
  33.       Height          =   375
  34.       Left            =   240
  35.       TabIndex        =   3
  36.       Top             =   3240
  37.       Width           =   3735
  38.    End
  39.    Begin Probe Probe1 
  40.       ControlName     =   ""
  41.       Height          =   420
  42.       Left            =   3600
  43.       Top             =   120
  44.       Width           =   420
  45.    End
  46.    Begin ListBox List1 
  47.       Height          =   1785
  48.       Left            =   240
  49.       TabIndex        =   1
  50.       Top             =   1320
  51.       Width           =   2055
  52.    End
  53.    Begin CommandButton Command1 
  54.       Caption         =   "Command1"
  55.       Height          =   495
  56.       Left            =   240
  57.       TabIndex        =   0
  58.       Top             =   720
  59.       Width           =   1215
  60.    End
  61.    Begin Label Label2 
  62.       Caption         =   "Press the ""Show Probe Dialog Box..."" button and then play with the properties of the controls on the form.  "
  63.       Height          =   1815
  64.       Left            =   2520
  65.       TabIndex        =   6
  66.       Top             =   1320
  67.       Width           =   1455
  68.    End
  69.    Begin Label Label1 
  70.       Caption         =   "Probe Sample"
  71.       FontBold        =   -1  'True
  72.       FontItalic      =   0   'False
  73.       FontName        =   "MS Sans Serif"
  74.       FontSize        =   15
  75.       FontStrikethru  =   0   'False
  76.       FontUnderline   =   0   'False
  77.       Height          =   375
  78.       Left            =   240
  79.       TabIndex        =   2
  80.       Top             =   120
  81.       Width           =   2535
  82.    End
  83. Option Explicit
  84. Sub Command2_Click ()
  85.     Probe1.Visible = True
  86. End Sub
  87. Sub Form_Load ()
  88.     List1.AddItem "James Shields"
  89.     List1.AddItem "Zane Thomas"
  90.     List1.AddItem "Ruth James"
  91.     List1.AddItem "Todd Born"
  92.     List1.AddItem "Wendy Cox"
  93.     List1.AddItem "Lisa Daugaard"
  94.     List1.AddItem "Karen Klein"
  95. End Sub
  96.