home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 October / DPPCPRO1098.ISO / Ocx / VCFIMP / VCIMPRES.Z / FirstImp.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-01  |  1.8 KB  |  61 lines
  1. VERSION 4.00
  2. Begin VB.Form ChartForm 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "First Impression Chart"
  6.    ClientHeight    =   3570
  7.    ClientLeft      =   5610
  8.    ClientTop       =   2775
  9.    ClientWidth     =   3870
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   4035
  21.    Icon            =   "FirstImp.frx":0000
  22.    Left            =   5520
  23.    LinkTopic       =   "Form1"
  24.    MDIChild        =   -1  'True
  25.    ScaleHeight     =   3570
  26.    ScaleWidth      =   3870
  27.    Top             =   2400
  28.    Width           =   4050
  29.    Begin VCIFiLib.VtChart VtChart1 
  30.       Height          =   3555
  31.       Left            =   0
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   3855
  35.       _version        =   65536
  36.       _extentx        =   6800
  37.       _extenty        =   6271
  38.       _stockprops     =   96
  39.       filename        =   "FirstImp.frx":030A
  40.    End
  41. Attribute VB_Name = "ChartForm"
  42. Attribute VB_Creatable = False
  43. Attribute VB_Exposed = False
  44. Option Explicit
  45. Private Sub Form_Load()
  46.    Top = 0
  47.    Left = 0
  48.    Width = MDIForm1.ScaleWidth
  49.    Height = MDIForm1.ScaleHeight
  50.    VtChart1.ChartType = VtChChartType2dBar
  51.    MDIForm1.mnuChart2DBar.Checked = True
  52. End Sub
  53. Private Sub Form_Resize()
  54.    VtChart1.Repaint = False
  55.    VtChart1.Top = 50
  56.    VtChart1.Left = 50
  57.    VtChart1.Width = ScaleWidth - 100
  58.    VtChart1.Height = ScaleHeight - 100
  59.    VtChart1.Repaint = True
  60. End Sub
  61.