home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / OLE2MDI.FR_ / OLE2MDI.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  1.1 KB  |  50 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIFrm 
  3.    Caption         =   "OLE Control Demo"
  4.    ClientHeight    =   5205
  5.    ClientLeft      =   1125
  6.    ClientTop       =   1965
  7.    ClientWidth     =   8025
  8.    Height          =   5895
  9.    Left            =   1065
  10.    LinkTopic       =   "MDIForm1"
  11.    Top             =   1335
  12.    Width           =   8145
  13.    Begin Menu mnuFile 
  14.       Caption         =   "&File"
  15.       Begin Menu mnuFileNew 
  16.          Caption         =   "&New..."
  17.       End
  18.       Begin Menu mnuOpen 
  19.          Caption         =   "&Open..."
  20.       End
  21.       Begin Menu sep1 
  22.          Caption         =   "-"
  23.       End
  24.       Begin Menu mnuExit 
  25.          Caption         =   "E&xit"
  26.       End
  27.       Begin Menu sep2 
  28.          Caption         =   "-"
  29.       End
  30.       Begin Menu mnuAbout 
  31.          Caption         =   "A&bout..."
  32.       End
  33.    End
  34. Option Explicit
  35. Sub MDIForm_Load ()
  36.   ChDir app.Path
  37. End Sub
  38. Sub mnuAbout_Click ()
  39.   aboutbox.Show
  40. End Sub
  41. Sub mnuExit_Click ()
  42.   End
  43. End Sub
  44. Sub mnuFileNew_Click ()
  45.   NewObject
  46. End Sub
  47. Sub mnuOpen_Click ()
  48.   OpenObject
  49. End Sub
  50.