home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / MAIN2.FR_ / MAIN2.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  1.8 KB  |  73 lines

  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    Caption         =   "Control Examples"
  4.    Height          =   3840
  5.    Left            =   1500
  6.    LinkTopic       =   "Form2"
  7.    ScaleHeight     =   3150
  8.    ScaleWidth      =   4965
  9.    Top             =   1380
  10.    Width           =   5085
  11.    Begin CommandButton cmdExit 
  12.       Caption         =   "E&xit"
  13.       Height          =   495
  14.       Left            =   3240
  15.       TabIndex        =   0
  16.       Top             =   2160
  17.       Width           =   1215
  18.    End
  19.    Begin Menu mnuControls 
  20.       Caption         =   "&Options"
  21.       Begin Menu mnuButtons 
  22.          Caption         =   "&Test Buttons"
  23.       End
  24.       Begin Menu mnuWordWrap 
  25.          Caption         =   "&WordWrap and Autosize"
  26.       End
  27.       Begin Menu mnuCheck 
  28.          Caption         =   "&Check Box"
  29.       End
  30.       Begin Menu mnuNumber 
  31.          Caption         =   "&Number System"
  32.       End
  33.       Begin Menu mnuListBox 
  34.          Caption         =   "&List Box"
  35.       End
  36.       Begin Menu mnuMulti 
  37.          Caption         =   "&Multi-column List Box"
  38.       End
  39.       Begin Menu mnuScrollBars 
  40.          Caption         =   "&Scroll Bars"
  41.       End
  42.       Begin Menu mnuArray 
  43.          Caption         =   "Control &Array"
  44.       End
  45.    End
  46. Sub cmdExit_Click ()
  47.     End
  48. End Sub
  49. Sub mnuArray_Click ()
  50.     frmControlArray.Show
  51. End Sub
  52. Sub mnuButtons_Click ()
  53.     frmButton.Show
  54. End Sub
  55. Sub mnuCheck_Click ()
  56.     frmCheck.Show
  57. End Sub
  58. Sub mnuListBox_Click ()
  59.     frmListBox.Show
  60. End Sub
  61. Sub mnuMulti_Click ()
  62.     frmMulti.Show
  63. End Sub
  64. Sub mnuNumber_Click ()
  65.     frmNumber.Show
  66. End Sub
  67. Sub mnuScrollBars_Click ()
  68.     frmScrollBars.Show
  69. End Sub
  70. Sub mnuWordWrap_Click ()
  71.     frmWordWrap.Show
  72. End Sub
  73.