home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / contmdi.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  1.3 KB  |  55 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm MDIFrm 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "OLE Container Control Demo"
  5.    ClientHeight    =   5205
  6.    ClientLeft      =   765
  7.    ClientTop       =   1770
  8.    ClientWidth     =   8025
  9.    Height          =   5895
  10.    Left            =   705
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1140
  13.    Width           =   8145
  14.    Begin VB.Menu mnuFile 
  15.       Caption         =   "&File"
  16.       NegotiatePosition=   1  'Left
  17.       Begin VB.Menu mnuFileNew 
  18.          Caption         =   "&New..."
  19.       End
  20.       Begin VB.Menu mnuOpen 
  21.          Caption         =   "&Open..."
  22.       End
  23.       Begin VB.Menu sep1 
  24.          Caption         =   "-"
  25.       End
  26.       Begin VB.Menu mnuExit 
  27.          Caption         =   "E&xit"
  28.       End
  29.       Begin VB.Menu sep2 
  30.          Caption         =   "-"
  31.       End
  32.       Begin VB.Menu mnuAbout 
  33.          Caption         =   "A&bout..."
  34.       End
  35.    End
  36. Attribute VB_Name = "MDIfrm"
  37. Attribute VB_Creatable = False
  38. Attribute VB_Exposed = False
  39. Option Explicit
  40. Private Sub MDIForm_Load()
  41.     ChDir App.Path
  42. End Sub
  43. Private Sub mnuAbout_Click()
  44.     DisplayInstructions
  45. End Sub
  46. Private Sub mnuExit_Click()
  47.     End
  48. End Sub
  49. Private Sub mnuFileNew_Click()
  50.     NewObject
  51. End Sub
  52. Private Sub mnuOpen_Click()
  53.     OpenObject
  54. End Sub
  55.