VERSION 4.00
Begin VB.Form frmgraph 
   Caption         =   "Form1"
   ClientHeight    =   5940
   ClientLeft      =   1140
   ClientTop       =   1515
   ClientWidth     =   6690
   Height          =   6345
   Left            =   1080
   LinkTopic       =   "Form1"
   ScaleHeight     =   5940
   ScaleWidth      =   6690
   Top             =   1170
   Width           =   6810
   Begin VB.ComboBox comGraph 
      Height          =   315
      Left            =   2100
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   4680
      Width           =   4275
   End
   Begin GraphLib.Graph Graph1 
      Height          =   4215
      Left            =   60
      TabIndex        =   2
      Top             =   0
      Width           =   6615
      _Version        =   65536
      _ExtentX        =   11668
      _ExtentY        =   7435
      _StockProps     =   96
      BorderStyle     =   1
      RandomData      =   0
      ColorData       =   0
      ExtraData       =   0
      ExtraData[]     =   0
      FontFamily      =   4
      FontSize        =   4
      FontSize[0]     =   200
      FontSize[1]     =   150
      FontSize[2]     =   100
      FontSize[3]     =   100
      FontStyle       =   4
      GraphData       =   1
      GraphData[]     =   5
      GraphData[0,0]  =   0
      GraphData[0,1]  =   0
      GraphData[0,2]  =   0
      GraphData[0,3]  =   0
      GraphData[0,4]  =   0
      LabelText       =   0
      LegendText      =   0
      PatternData     =   0
      SymbolData      =   0
      XPosData        =   0
      XPosData[]      =   0
   End
   Begin VB.Label lblGraph 
      Caption         =   "Graph Type"
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   4680
      Width           =   1215
   End
Attribute VB_Name = "frmgraph"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub comGraph_Click()
Graph1.GraphType = CInt(Mid$(comGraph.TEXT, 1, 2))
Graph1.DrawMode = 2 ' Force the Graph to Re-Draw
End Sub
Private Sub Form_Load()
Dim sTAB As String
Dim sCRLF As String
Dim sTestData As String
sTAB = Chr$(9)
sCRLF = Chr$(13) + Chr$(10)
sTestData = "11" & sTAB & "12" & sTAB & "13" & sCRLF & "5" & sTAB & "6" & sTAB & "7" + sCRLF & "20" & sTAB & "21" & sTAB & "22" & sCRLF
Graph1.QuickData = sTestData
Graph1.LegendText = " HardWare"
Graph1.LegendText = " SoftWare"
Graph1.LegendText = " Services "
Graph1.LabelText = "USA"
Graph1.LabelText = "Europe"
Graph1.LabelText = "Asia"
comGraph.AddItem "1 - 2D Pie"
comGraph.AddItem "2 - 3D Pie"
comGraph.AddItem "3 - 2D Bar"
comGraph.AddItem "4 - 3D Bar"
comGraph.AddItem "5 - Gantt"
comGraph.AddItem "6 - Line"
comGraph.AddItem "7 - Log/Lin"
comGraph.AddItem "8 - Area"
comGraph.AddItem "9 - Scatter"
comGraph.AddItem "10 - Polar"
comGraph.AddItem "11 - HlC"
comGraph.ListIndex = 3
End Sub