home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / cellcont / data1.cab / VBDEMO_Files / MainForm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-11-20  |  15.6 KB  |  505 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "Cell VBDemo"
  4.    ClientHeight    =   4752
  5.    ClientLeft      =   168
  6.    ClientTop       =   456
  7.    ClientWidth     =   6972
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4752
  10.    ScaleWidth      =   6972
  11.    StartUpPosition =   2  'CenterScreen
  12.    WindowState     =   2  'Maximized
  13.    Begin VB.Menu FileMenu 
  14.       Caption         =   "File(&F)"
  15.       Begin VB.Menu mnuExit 
  16.          Caption         =   "Exit(&X)"
  17.       End
  18.    End
  19.    Begin VB.Menu mnuFeature 
  20.       Caption         =   "Features(&T)"
  21.       Begin VB.Menu mnuFeatures 
  22.          Caption         =   "Window"
  23.          Index           =   1
  24.       End
  25.       Begin VB.Menu mnuFeatures 
  26.          Caption         =   "Sizing"
  27.          Index           =   2
  28.       End
  29.       Begin VB.Menu mnuFeatures 
  30.          Caption         =   "Background"
  31.          Index           =   3
  32.       End
  33.       Begin VB.Menu mnuFeatures 
  34.          Caption         =   "Cell Style"
  35.          Index           =   4
  36.       End
  37.       Begin VB.Menu mnuFeatures 
  38.          Caption         =   "Cell Type"
  39.          Index           =   5
  40.       End
  41.       Begin VB.Menu mnuFeatures 
  42.          Caption         =   "Input"
  43.          Index           =   6
  44.       End
  45.       Begin VB.Menu mnuFeatures 
  46.          Caption         =   "Cell Formula"
  47.          Index           =   7
  48.       End
  49.       Begin VB.Menu mnuFeatures 
  50.          Caption         =   "Chart"
  51.          Index           =   8
  52.       End
  53.       Begin VB.Menu mnuFeatures 
  54.          Caption         =   "Virtual Grid"
  55.          Index           =   9
  56.       End
  57.       Begin VB.Menu mnuFeatures 
  58.          Caption         =   "User defined Function"
  59.          Index           =   10
  60.       End
  61.       Begin VB.Menu mnuFeatures 
  62.          Caption         =   "Cut Copy Paste"
  63.          Index           =   11
  64.       End
  65.       Begin VB.Menu mnuFeatures 
  66.          Caption         =   "Drag Drop"
  67.          Index           =   12
  68.       End
  69.       Begin VB.Menu mnuFeatures 
  70.          Caption         =   "Sort"
  71.          Index           =   13
  72.       End
  73.       Begin VB.Menu mnuFeatures 
  74.          Caption         =   "Pint Preview"
  75.          Index           =   14
  76.       End
  77.       Begin VB.Menu mnuFeatures 
  78.          Caption         =   "Pages"
  79.          Index           =   15
  80.       End
  81.       Begin VB.Menu mnuFeatures 
  82.          Caption         =   "Drop Window"
  83.          Index           =   16
  84.       End
  85.       Begin VB.Menu mnuFeatures 
  86.          Caption         =   "Open Dbase"
  87.          Index           =   17
  88.       End
  89.       Begin VB.Menu mnuFeatures 
  90.          Caption         =   "File Save"
  91.          Index           =   18
  92.       End
  93.    End
  94.    Begin VB.Menu mnuHelp 
  95.       Caption         =   "Help(&H)"
  96.       Begin VB.Menu mnuHelpAbout 
  97.          Caption         =   "About(&A)"
  98.       End
  99.    End
  100. Attribute VB_Name = "frmMain"
  101. Attribute VB_GlobalNameSpace = False
  102. Attribute VB_Creatable = False
  103. Attribute VB_PredeclaredId = True
  104. Attribute VB_Exposed = False
  105. Dim iDefaultHeight As Integer
  106. Dim iDefaultWidth As Integer
  107. Private Sub subDropWindow()
  108. With frmCell.DemoCell
  109.   .DoSetCellString 0, 1, "Button"
  110.   .DoSetCellString 0, 3, "Check box"
  111.   .DoSetCellString 0, 5, "Drop window(row select style)"
  112.   .DoSetCellString 0, 7, "Drop window"
  113.   .DoSetCellString 0, 9, "Drop window(data from page 2)"
  114.   .DoSetButtonCell 2, 1, "press me", "You press here"
  115.   .DoSetCheckboxCell 2, 3, "a check box"
  116.   .DoSetDropGridCell 2, 5, 0, 0, 5, 5, 0, 1, 0, 0, 0
  117.   .DoSetDropGridCell 2, 7, 0, 0, 5, 5, 0, 0, 0, 0, 0
  118.   .DoSetDropGridCell 2, 9, 0, 0, 5, 5, 1, 0, 0, 0, 0
  119.   .DoAppendPage "", 1
  120.   .DoSetCurrentPage 1
  121.   .DoSetCellString 0, 1, "This cell from"
  122.   .DoSetCellString 0, 2, "page 2"
  123.   .DoSetCurrentPage 0
  124.   .DoSetMessageTitle "VB DEMO"
  125. End With
  126. End Sub
  127. Private Sub subPages()
  128. frmCell.DemoCell.DoSetTotalPages 100
  129. End Sub
  130. Private Sub subPrint()
  131. With frmCell.DemoCell
  132.   .DoSetCellString 0, 0, "interest rate"
  133.   .DoSetCellString 1, 0, "three month"
  134.   .DoSetCellString 2, 0, "half year"
  135.   .DoSetCellString 3, 0, "one year"
  136.   .DoSetCellString 4, 0, "two year"
  137.   .DoSetCellString 5, 0, "three year"
  138.   .DoSetCellString 6, 0, "five year"
  139.   .DoSetCellString 0, 1, "month interest rate"
  140.   .DoSetCellValue 1, 1, 2.4
  141.   .DoSetCellValue 2, 1, 3.45
  142.   .DoSetCellValue 3, 1, 4.725
  143.   .DoSetCellValue 4, 1, 4.95
  144.   .DoSetCellValue 5, 1, 5.175
  145.   .DoSetCellValue 6, 1, 5.55
  146.   .DoSetCellString 0, 2, "year interest rate"
  147.   .DoSetCellValue 1, 2, 2.88
  148.   .DoSetCellValue 2, 2, 4.14
  149.   .DoSetCellValue 3, 2, 5.67
  150.   .DoSetCellValue 4, 2, 5.94
  151.   .DoSetCellValue 5, 2, 6.21
  152.   .DoSetCellValue 6, 2, 6.66
  153.   .DoJoinCells 1, 4, 5, 8
  154.   .DoSetRefChart 1, 4, 0, 0, 6, 2
  155.   .DoJoinCells 1, 10, 5, 14
  156.   .DoSetChart 1, 10, 5, 5
  157.   .DoSetChartStringData 1, 10, 0, 0, "Area"
  158.   .DoSetChartStringData 1, 10, 1, 0, "Washington"
  159.   .DoSetChartStringData 1, 10, 2, 0, "New York"
  160.   .DoSetChartStringData 1, 10, 3, 0, "Florida"
  161.   .DoSetChartStringData 1, 10, 4, 0, "Colorado"
  162.   .DoSetChartStringData 1, 10, 0, 1, "first quarter"
  163.   .DoSetChartStringData 1, 10, 0, 2, "second quarter"
  164.   .DoSetChartStringData 1, 10, 0, 3, "third quarter"
  165.   .DoSetChartStringData 1, 10, 0, 4, "fourth quarter"
  166.   .DoSetChartValueData 1, 10, 1, 1, 29876
  167.   .DoSetChartValueData 1, 10, 1, 2, 34123
  168.   .DoSetChartValueData 1, 10, 1, 3, 42221
  169.   .DoSetChartValueData 1, 10, 1, 4, 52123
  170.   .DoSetChartValueData 1, 10, 2, 1, 32365
  171.   .DoSetChartValueData 1, 10, 2, 2, 35432
  172.   .DoSetChartValueData 1, 10, 2, 3, 30283
  173.   .DoSetChartValueData 1, 10, 2, 4, 45322
  174.   .DoSetChartValueData 1, 10, 3, 1, 32007
  175.   .DoSetChartValueData 1, 10, 3, 2, 23481
  176.   .DoSetChartValueData 1, 10, 3, 3, 40624
  177.   .DoSetChartValueData 1, 10, 3, 4, 34528
  178.   .DoSetChartValueData 1, 10, 4, 1, 31232
  179.   .DoSetChartValueData 1, 10, 4, 2, 30345
  180.   .DoSetChartValueData 1, 10, 4, 3, 27943
  181.   .DoSetChartValueData 1, 10, 4, 4, 32109
  182.   .DoSetChartGeneralData 1, 10, 1, False, "sale", "figure2", "thousand dollar"
  183.   .DoRefreshChart 1, 10
  184.   .PageLabelVisible = False
  185. End With
  186. End Sub
  187. Private Sub subSort()
  188. With frmCell.DemoCell
  189.   .Cols = 6
  190.   .Rows = 8
  191.   .DoSetBackGround 4
  192.   .DoSetCellString 0, -1, "Stock"
  193.   .DoSetCellString 1, -1, "Open"
  194.   .DoSetCellString 2, -1, "Rise/Drop"
  195.   .DoSetCellString 3, -1, "Noon Volume"
  196.   .DoSetCellString 4, -1, "10:10"
  197.   .DoSetCellString 5, -1, "Volume"
  198.   .DoSetCellString 0, 0, "Microsoft"
  199.   .DoSetCellValue 1, 0, 27.5
  200.   .DoSetCellValue 2, 0, -0.57
  201.   .DoSetCellValue 3, 0, 1116200
  202.   .DoSetCellValue 4, 0, 27.6
  203.   .DoSetCellValue 5, 0, 338700
  204.   .DoSetCellString 0, 1, "IBM"
  205.   .DoSetCellValue 1, 1, 9.59
  206.   .DoSetCellValue 2, 1, -1.94
  207.   .DoSetCellValue 3, 1, 317000
  208.   .DoSetCellValue 4, 1, 9.7
  209.   .DoSetCellValue 5, 1, 45600
  210.   .DoSetCellString 0, 2, "Sun"
  211.   .DoSetCellValue 1, 2, 11.3
  212.   .DoSetCellValue 2, 2, 0.89
  213.   .DoSetCellValue 3, 2, 333200
  214.   .DoSetCellValue 4, 2, 11.21
  215.   .DoSetCellValue 5, 2, 20700
  216.   .DoSetCellString 0, 3, "Oracle"
  217.   .DoSetCellValue 1, 3, 13.52
  218.   .DoSetCellValue 2, 3, -2.02
  219.   .DoSetCellValue 3, 3, 378500
  220.   .DoSetCellValue 4, 3, 13.68
  221.   .DoSetCellValue 5, 3, 26500
  222.   .DoSetCellString 0, 4, "Sybase"
  223.   .DoSetCellValue 1, 4, 15.82
  224.   .DoSetCellValue 2, 4, -1.12
  225.   .DoSetCellValue 3, 4, 799600
  226.   .DoSetCellValue 4, 4, 15.81
  227.   .DoSetCellValue 5, 4, 69600
  228.   .DoSetCellString 0, 5, "Adobe"
  229.   .DoSetCellValue 1, 5, 6.3
  230.   .DoSetCellValue 2, 5, -1.4
  231.   .DoSetCellValue 3, 5, 476000
  232.   .DoSetCellValue 4, 5, 6.43
  233.   .DoSetCellValue 5, 5, 195500
  234.   .DoSetCellString 0, 6, "CA"
  235.   .DoSetCellValue 1, 6, 10.21
  236.   .DoSetCellValue 2, 6, -0.68
  237.   .DoSetCellValue 3, 6, 221300
  238.   .DoSetCellValue 4, 6, 10.26
  239.   .DoSetCellValue 5, 6, 21200
  240.   .DoSetCellString 0, 7, "AT&T"
  241.   .DoSetCellValue 1, 7, 9.1
  242.   .DoSetCellValue 2, 7, -2.04
  243.   .DoSetCellValue 3, 7, 1014800
  244.   .DoSetCellValue 4, 7, 9.12
  245.   .DoSetCellValue 5, 7, 97000
  246.   .DoSetCellString 0, 8, "North"
  247.   .DoSetCellValue 1, 8, 8.98
  248.   .DoSetCellValue 2, 8, -2.07
  249.   .DoSetCellValue 3, 8, 757300
  250.   .DoSetCellValue 4, 8, 9.11
  251.   .DoSetCellValue 5, 8, 154400
  252.   For i = 1 To 6
  253.     .DoSetSortCol i, True
  254.   Next
  255.   .RowSelectedMode = True
  256.   .SideLabelVisible = False
  257.   .PageLabelVisible = False
  258.   .DoShowCurrentCell False, True
  259.   .MultiSelectedMode = False
  260.   .GridReadOnly = True
  261.   .CurrentTopLabelHint = False
  262. End With
  263. End Sub
  264. Private Sub subUserFunc()
  265. With frmCell.DemoCell
  266.     Dim parmType(4) As Integer
  267.     For i = 0 To UBound(parmType) - 1
  268.         parmType(i) = i
  269.     Next
  270.     .DoAddUserFunction "", "MyFunction1", 0, 4, parmType(0), "This is function help"
  271.     .DoSetFormula 1, 0, "EXP(1)"
  272.     Dim Myfun As String
  273.     Myfun = "MyFunction1(24, " & Chr(34) & "abc" & Chr(34) & ", A1, A1:B3)"
  274.     .DoSetFormula 2, 0, Myfun
  275.     .PageLabelVisible = False
  276. End With
  277. End Sub
  278. Private Sub subViutual()
  279. With frmCell.DemoCell
  280.   .DoSetEqualRowHeight True
  281.   .Rows = 16384
  282.   .Cols = 256
  283.   .GridReadOnly = True
  284.   .SideLabelWidth = 100
  285.   .EnablePopMenu = False
  286.   .PageLabelVisible = False
  287.   .DoSetCanDragDrop False
  288. End With
  289. End Sub
  290. Private Sub subChart()
  291. With frmCell.DemoCell
  292.   .DoSetCellString 0, 0, "interest rate"
  293.   .DoSetCellString 1, 0, "three month"
  294.   .DoSetCellString 2, 0, "half year"
  295.   .DoSetCellString 3, 0, "one year"
  296.   .DoSetCellString 4, 0, "two year"
  297.   .DoSetCellString 5, 0, "three year"
  298.   .DoSetCellString 6, 0, "five year"
  299.   .DoSetCellString 0, 1, "month interest rate"
  300.   .DoSetCellValue 1, 1, 2.4
  301.   .DoSetCellValue 2, 1, 3.45
  302.   .DoSetCellValue 3, 1, 4.725
  303.   .DoSetCellValue 4, 1, 4.95
  304.   .DoSetCellValue 5, 1, 5.175
  305.   .DoSetCellValue 6, 1, 5.55
  306.   .DoSetCellString 0, 2, "year interest rate"
  307.   .DoSetCellValue 1, 2, 2.88
  308.   .DoSetCellValue 2, 2, 4.14
  309.   .DoSetCellValue 3, 2, 5.67
  310.   .DoSetCellValue 4, 2, 5.94
  311.   .DoSetCellValue 5, 2, 6.21
  312.   .DoSetCellValue 6, 2, 6.66
  313.   .DoJoinCells 1, 4, 5, 8
  314.   .DoSetRefChart 1, 4, 0, 0, 6, 2
  315.   .DoJoinCells 1, 10, 5, 14
  316.   .DoSetChart 1, 10, 5, 5
  317.   .DoSetChartStringData 1, 10, 0, 0, "Area"
  318.   .DoSetChartStringData 1, 10, 1, 0, "Washington"
  319.   .DoSetChartStringData 1, 10, 2, 0, "New York"
  320.   .DoSetChartStringData 1, 10, 3, 0, "Florida"
  321.   .DoSetChartStringData 1, 10, 4, 0, "Colorado"
  322.   .DoSetChartStringData 1, 10, 0, 1, "first quarter"
  323.   .DoSetChartStringData 1, 10, 0, 2, "second quarter"
  324.   .DoSetChartStringData 1, 10, 0, 3, "third quarter"
  325.   .DoSetChartStringData 1, 10, 0, 4, "fourth quarter"
  326.   .DoSetChartValueData 1, 10, 1, 1, 29876
  327.   .DoSetChartValueData 1, 10, 1, 2, 34123
  328.   .DoSetChartValueData 1, 10, 1, 3, 42221
  329.   .DoSetChartValueData 1, 10, 1, 4, 52123
  330.   .DoSetChartValueData 1, 10, 2, 1, 32365
  331.   .DoSetChartValueData 1, 10, 2, 2, 35432
  332.   .DoSetChartValueData 1, 10, 2, 3, 30283
  333.   .DoSetChartValueData 1, 10, 2, 4, 45322
  334.   .DoSetChartValueData 1, 10, 3, 1, 32007
  335.   .DoSetChartValueData 1, 10, 3, 2, 23481
  336.   .DoSetChartValueData 1, 10, 3, 3, 40624
  337.   .DoSetChartValueData 1, 10, 3, 4, 34528
  338.   .DoSetChartValueData 1, 10, 4, 1, 31232
  339.   .DoSetChartValueData 1, 10, 4, 2, 30345
  340.   .DoSetChartValueData 1, 10, 4, 3, 27943
  341.   .DoSetChartValueData 1, 10, 4, 4, 32109
  342.   .DoSetChartGeneralData 1, 10, 1, False, "sale", "figure2", "thousand dollar"
  343.   .DoRefreshChart 1, 10
  344. End With
  345. End Sub
  346. Private Sub subFormula()
  347. With frmCell.DemoCell
  348.   .DoSetCellString 0, 1, "January"
  349.   .DoSetCellString 1, 1, "February"
  350.   .DoSetCellString 2, 1, "March"
  351.   .DoSetCellString 3, 1, "first quarter"
  352.   .DoSetCellString 4, 1, "this year"
  353.   .DoSetCellValue 0, 2, 567.5
  354.   .DoSetCellValue 1, 2, 679.3
  355.   .DoSetCellValue 2, 2, 368.3
  356.   .DoSetFormula 3, 2, "a3+b3+c3"
  357.   .DoSetFormula 4, 2, "d3*4"
  358.   .PageLabelVisible = False
  359. End With
  360. End Sub
  361. Private Sub subInput()
  362. With frmCell.DemoCell
  363.   .DoSetCellString 0, 1, "Upper case in B2"
  364.   .DoSetCellInputControlCase 1, 1, 1
  365.   .DoSetCellString 0, 3, "Date format in B4"
  366.   .DoSetCellInputControlMask 1, 3, "99-99-9999"
  367.   .DoSetCellString 0, 5, "Value range(50.0 -- 80.0) B6"
  368.   .DoSetCellInputOnlyValue 1, 5, True, 80#, True, 50#
  369.   .DoSetCellString 0, 7, "Input not allowed in B8"
  370.   .DoSetColWidth 0, 300
  371.   .DoSetColWidth 1, 160
  372.   .PageLabelVisible = False
  373. End With
  374. End Sub
  375. Private Sub subCopy()
  376.   frmCell.DemoCell.EnablePopMenu = True
  377.   frmCell.DemoCell.GridReadOnly = False
  378.   frmCell.DemoCell.MultiSelectedMode = True
  379. End Sub
  380. Private Sub subCellType()
  381. With frmCell.DemoCell
  382.    .DoSetCellString 0, 1, "Button"
  383.    .DoSetCellString 0, 3, "Check box"
  384.    .DoSetCellString 0, 5, "Radio button"
  385.    .DoSetCellString 0, 7, "Drop list"
  386.    .DoSetCellString 0, 9, "Spin"
  387.    .DoSetCellString 0, 11, "Step Spin"
  388.    .DoSetCellString 0, 14, "Drop window"
  389.    .DoSetButtonCell 2, 1, "press me", "You pressed the button!"
  390.    .DoSetCheckboxCell 2, 3, "check box"
  391.    .DoSetRadioCell 2, 5, "up" & vbCrLf & "down"
  392.    .DoSetDroplistCell 2, 7, "by bus" & vbCrLf & "by plane" & vbCrLf & "by train", 0, 1
  393.    .DoSetTextSpinCell 2, 9, "up" & vbCrLf & "down" & vbCrLf & "medium"
  394.    .DoSetValueSpinCell 2, 11, 0, 100, 10
  395.    .DoSetDropGridCell 2, 14, 0, 0, 5, 5, 0, 0, 0, 0, 0
  396.    .DoSetDroplistCell 3, 7, "by bus" & vbCrLf & "by plane" & vbCrLf & "by train", 1, 1
  397.    .DoSetDroplistCell 4, 7, "by bus" & vbCrLf & "by plane" & vbCrLf & "by train", 0, 0
  398.    .DoSetCellString 4, 7, "Input here!"
  399.    .DoSetCellString 3, 7, "come here!"
  400.    .DoSetCellValue 2, 11, 0
  401.    .DoSetRowHeight 5, 150
  402.    .PageLabelVisible = False
  403.    .DoJoinCells 3, 0, 5, 6
  404.   If Right(App.Path, 1) = "\" Then
  405.     tmp = App.Path + "garbo.jpg"
  406.   Else
  407.     tmp = App.Path + "\garbo.jpg"
  408.   End If
  409.    .DoSetCellPicture 3, 0, tmp, 1
  410. End With
  411. End Sub
  412. Private Sub subCellStyle()
  413. With frmCell.DemoCell
  414.    .DoSetCellString 0, 0, "Align left"
  415.    .DoSetCellAlignment 0, 0, 1
  416.    .DoSetCellString 0, 1, "Align right"
  417.    .DoSetCellAlignment 0, 1, 2
  418.    .DoSetCellString 0, 2, "Align medium"
  419.    .DoSetCellAlignment 0, 2, 4
  420.    .DoSetCellString 0, 3, "Align top"
  421.    .DoSetCellAlignment 0, 3, 8
  422.    .DoSetCellString 0, 4, "Align bottom"
  423.    .DoSetCellAlignment 0, 4, 16
  424.    .DoSetCellString 0, 5, "Align v_medium"
  425.    .DoSetCellAlignment 0, 5, 32
  426.    .DoSetCellString 1, 0, "Word break"
  427.    .DoSetCellTextStyle 1, 0, 1
  428.   For i = 0 To 6
  429.      .DoSetRowHeight i, 50
  430.   Next
  431.   For i = 1 To 5
  432.     For j = 3 To 6
  433.        .DoSetCell3DState i, j, 1
  434.        .DoSetCellString 1, 3, "This Style is suitable for form head"
  435.     Next
  436.   Next
  437.   For i = 1 To 5
  438.     For j = 8 To 12
  439.        .DoSetCell3DState i, j, 2
  440.     Next
  441.   Next
  442.    .PageLabelVisible = False
  443. End With
  444. End Sub
  445. Private Sub LoadCell()
  446. With frmCell.DemoCell
  447.     .RowSelectedMode = False
  448.     .EnablePopMenu = False
  449.     .DoSetDefaultColWidth 100
  450.     .DoSetDefaultRowHeight 20
  451. End With
  452. End Sub
  453. Private Sub subDrag()
  454. With frmCell.DemoCell
  455.   .MultiSelectedMode = True
  456.   .PageLabelVisible = False
  457.   .GridReadOnly = False
  458. End With
  459. End Sub
  460. Private Sub Form_Load()
  461. frmMain.WindowState = 2
  462. End Sub
  463. Private Sub mnuExit_Click()
  464. End Sub
  465. Private Sub mnuFeatures_Click(Index As Integer)
  466. On Error Resume Next
  467. iSelection = Index
  468. LoadCell
  469. frmCell.Caption = "Cell Demo " & mnuFeatures(Index).Caption
  470. frmCell.picPicture(Index - 1).ZOrder
  471. Select Case Index
  472.   Case 4
  473.     subCellStyle
  474.   Case 5
  475.     subCellType
  476.   Case 6
  477.     subInput
  478.   Case 7
  479.     subFormula
  480.   Case 8
  481.     subChart
  482.   Case 9
  483.     subViutual
  484.   Case 10
  485.     subUserFunc
  486.   Case 11
  487.     subCopy
  488.   Case 12
  489.     subDrag
  490.   Case 13
  491.     subSort
  492.   Case 14
  493.     subPrint
  494.   Case 15
  495.     subPages
  496.   Case 16
  497.     subDropWindow
  498. End Select
  499. frmCell.Show vbModal
  500. End Sub
  501. Private Sub mnuHelpAbout_Click()
  502. MsgBox "Cell VB Demo" & vbCrLf & vbCrLf & "Author
  503. Jack Yin" & vbCrLf & "        jackyyin@nease.net", vbInformation
  504. End Sub
  505.