home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / MOUSE / SCRMAIN.FRM (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-01-20  |  2.1 KB  |  83 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm frmMain 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "
  5.    ClientHeight    =   4395
  6.    ClientLeft      =   240
  7.    ClientTop       =   1785
  8.    ClientWidth     =   7275
  9.    LinkTopic       =   "MDIForm1"
  10.    Begin VB.Menu mnuOptions 
  11.       Caption         =   "
  12. (&O)"
  13.       Begin VB.Menu mnuClickLine 
  14.          Caption         =   "
  15. (&C)"
  16.       End
  17.       Begin VB.Menu mnuScribble 
  18.          Caption         =   "
  19. (&S)"
  20.       End
  21.       Begin VB.Menu mnuDragDrop 
  22.          Caption         =   "
  23. (&D)"
  24.       End
  25.       Begin VB.Menu sep1 
  26.          Caption         =   "-"
  27.       End
  28.       Begin VB.Menu mnuInstructions 
  29.          Caption         =   "
  30. (&I)"
  31.       End
  32.       Begin VB.Menu sep2 
  33.          Caption         =   "-"
  34.       End
  35.       Begin VB.Menu mnuExit 
  36.          Caption         =   "
  37. (&E)"
  38.       End
  39.    End
  40. Attribute VB_Name = "frmMain"
  41. Attribute VB_GlobalNameSpace = False
  42. Attribute VB_Creatable = False
  43. Attribute VB_PredeclaredId = True
  44. Attribute VB_Exposed = False
  45. Private Sub MDIForm_Unload(Cancel As Integer)
  46.     End
  47. End Sub
  48. Private Sub mnuClickLine_Click()
  49.     frmClickLine.Cls
  50. End Sub
  51. Private Sub mnuDragDrop_Click()
  52.     frmDrag.Show
  53. End Sub
  54. Private Sub mnuExit_Click()
  55.     End
  56. End Sub
  57. Private Sub mnuInstructions_Click()
  58.     ' 
  59.     Dim MsgText
  60.     Dim CR
  61.     Dim PB
  62.     ' 
  63.     CR = Chr$(10) & Chr$(13)
  64.     PB = Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13)
  65.     ' 
  66.     MsgText = "
  67.     MsgText = MsgText & CR & "
  68.     MsgText = MsgText & PB & "
  69.     MsgText = MsgText & CR & "
  70.     MsgText = MsgText & PB & "
  71.     MsgText = MsgText & CR & "
  72.  (.txt), 
  73.  (.bmp), Windows 
  74.  (.exe), 
  75.  Help 
  76.  (.hlp)
  77.     ' 
  78.     MsgBox MsgText, 64, "
  79. End Sub
  80. Private Sub mnuScribble_Click()
  81.     frmScribble.Cls
  82. End Sub
  83.