home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch27code / mdiother.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-07-17  |  1.2 KB  |  47 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm mdiOther 
  3.    AutoShowChildren=   0   'False
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "MDIForm1"
  6.    ClientHeight    =   3990
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1800
  9.    ClientWidth     =   7365
  10.    Height          =   4680
  11.    Left            =   1035
  12.    LinkTopic       =   "MDIForm1"
  13.    Top             =   1170
  14.    Width           =   7485
  15.    Begin VB.Menu mnuFile 
  16.       Caption         =   "&File"
  17.       Begin VB.Menu mnuFileItems 
  18.          Caption         =   "E&xit"
  19.          Index           =   1
  20.       End
  21.    End
  22.    Begin VB.Menu mnuView 
  23.       Caption         =   "&View"
  24.       Begin VB.Menu mnuViewItems 
  25.          Caption         =   "&PowerPoint"
  26.          Index           =   1
  27.          Shortcut        =   ^P
  28.       End
  29.    End
  30. Attribute VB_Name = "mdiOther"
  31. Attribute VB_Creatable = False
  32. Attribute VB_Exposed = False
  33. Option Explicit
  34. Private Sub MDIForm_Load()
  35.     Move 0, 0, Screen.Width, Screen.Height
  36. End Sub
  37. Private Sub mnuFileItems_Click(Index As Integer)
  38.     Unload Me
  39. End Sub
  40. Private Sub mnuViewItems_Click(Index As Integer)
  41.     Select Case Index
  42.         Case 1
  43.             frmPower.Show
  44.         Case 2
  45.     End Select
  46. End Sub
  47.