VERSION 5.00
Begin VB.Form frmNash 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Nasrul's Vb2Xl"
   ClientHeight    =   4425
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6915
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4425
   ScaleWidth      =   6915
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command2 
      Caption         =   "Chart"
      Height          =   510
      Left            =   2025
      TabIndex        =   4
      Top             =   3105
      Width           =   1410
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Excel"
      Height          =   510
      Left            =   585
      TabIndex        =   3
      Top             =   3105
      Width           =   1410
   End
   Begin VB.TextBox txtThree 
      Height          =   555
      Left            =   4680
      TabIndex        =   2
      Text            =   " "
      Top             =   1170
      Width           =   1590
   End
   Begin VB.TextBox txtTwo 
      Height          =   555
      Left            =   2565
      TabIndex        =   1
      Text            =   " "
      Top             =   1170
      Width           =   1590
   End
   Begin VB.TextBox txtOne 
      Height          =   555
      Left            =   585
      TabIndex        =   0
      Text            =   " "
      Top             =   1170
      Width           =   1590
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "A3"
      Height          =   285
      Index           =   2
      Left            =   4680
      TabIndex        =   8
      Top             =   810
      Width           =   1635
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "A2"
      Height          =   285
      Index           =   1
      Left            =   2520
      TabIndex        =   7
      Top             =   810
      Width           =   1635
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "A1"
      Height          =   285
      Index           =   0
      Left            =   540
      TabIndex        =   6
      Top             =   810
      Width           =   1635
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Nasrul Saiyed [email protected]"
      ForeColor       =   &H8000000D&
      Height          =   465
      Left            =   5535
      TabIndex        =   5
      Top             =   3915
      Width           =   1365
   End
End
Attribute VB_Name = "frmNash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Nasrul Saiyed VB2XL Chart
'[email protected]
Option Explicit
Dim nash As Excel.Application
Dim nashCh As Excel.Chart

Private Sub Command1_Click()
'Adding Workbook to Excel
nash.Workbooks.Add
'Passing Values to Cells
nash.Range("a1").Value = txtOne.Text
nash.Range("a2").Value = txtTwo.Text
nash.Range("a3").Value = txtThree.Text
'Making it Visible
nash.Visible = True
Command1.Enabled = False
End Sub

Private Sub Command2_Click()
Command1_Click
'Selecting Range for chart
nash.Range("a1:a3").Select
'initialising workbook to chart
Set nashCh = nash.Charts.Add
'Passing Chart type
nashCh.ChartType = xlConeColClustered
'Making it visible
nashCh.Visible = xlSheetVisible
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Set nash = CreateObject("excel.application")
End Sub

Private Sub Form_Unload(Cancel As Integer)
'releasing excel
nash.Quit
End Sub