home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.4 KB  |  90 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "Control Examples"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   1710
  6.    ClientTop       =   3375
  7.    ClientWidth     =   4995
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   1
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   3780
  18.    Left            =   1650
  19.    LinkTopic       =   "Form2"
  20.    ScaleHeight     =   3090
  21.    ScaleWidth      =   4995
  22.    Top             =   2745
  23.    Width           =   5115
  24.    Begin VB.CommandButton cmdExit 
  25.       Caption         =   "E&xit"
  26.       Height          =   495
  27.       Left            =   3240
  28.       TabIndex        =   0
  29.       Top             =   2160
  30.       Width           =   1215
  31.    End
  32.    Begin VB.Menu mnuControls 
  33.       Caption         =   "&Options"
  34.       Begin VB.Menu mnuButtons 
  35.          Caption         =   "&Test Buttons"
  36.       End
  37.       Begin VB.Menu mnuWordWrap 
  38.          Caption         =   "&WordWrap and AutoSize"
  39.       End
  40.       Begin VB.Menu mnuCheck 
  41.          Caption         =   "&Check Box"
  42.       End
  43.       Begin VB.Menu mnuNumber 
  44.          Caption         =   "&Number System"
  45.       End
  46.       Begin VB.Menu mnuListBox 
  47.          Caption         =   "&List Box"
  48.       End
  49.       Begin VB.Menu mnuMulti 
  50.          Caption         =   "&Multiple-Column List Box"
  51.       End
  52.       Begin VB.Menu mnuScrollBars 
  53.          Caption         =   "&Scroll Bars"
  54.       End
  55.       Begin VB.Menu mnuArray 
  56.          Caption         =   "Control &Array"
  57.       End
  58.    End
  59. Attribute VB_Name = "frmMain"
  60. Attribute VB_Creatable = False
  61. Attribute VB_Exposed = False
  62. Private Sub cmdExit_Click()
  63.     Unload Me
  64.     End
  65. End Sub
  66. Private Sub mnuArray_Click()
  67.     frmControlArray.Show
  68. End Sub
  69. Private Sub mnuButtons_Click()
  70.     frmButton.Show
  71. End Sub
  72. Private Sub mnuCheck_Click()
  73.     frmCheck.Show
  74. End Sub
  75. Private Sub mnuListBox_Click()
  76.     frmListBox.Show
  77. End Sub
  78. Private Sub mnuMulti_Click()
  79.     frmMulti.Show
  80. End Sub
  81. Private Sub mnuNumber_Click()
  82.     frmNumber.Show
  83. End Sub
  84. Private Sub mnuScrollBars_Click()
  85.     frmScrollBars.Show
  86. End Sub
  87. Private Sub mnuWordWrap_Click()
  88.     frmWordWrap.Show
  89. End Sub
  90.