VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmTable 
   Caption         =   "TABLE"
   ClientHeight    =   4395
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6630
   LinkTopic       =   "Form1"
   ScaleHeight     =   4395
   ScaleWidth      =   6630
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CMDExit 
      Caption         =   "Exit"
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   3480
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid grdTable 
      Height          =   3255
      Left            =   240
      TabIndex        =   0
      Top             =   0
      Width           =   4935
      _ExtentX        =   8705
      _ExtentY        =   5741
      _Version        =   393216
      Rows            =   13
      Cols            =   5
   End
End
Attribute VB_Name = "frmTable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CMDExit_Click()
End
End Sub

Private Sub Form_Load()
grdTable.Row = 0
grdTable.Col = 1
grdTable.Text = "Электроэнергия"

grdTable.Col = 2
grdTable.Text = "Водоснабжение"

grdTable.Col = 3
grdTable.Text = "Транспорт"

grdTable.Col = 4
grdTable.Text = "Продукты питания"

grdTable.Col = 0

grdTable.Row = 1
grdTable.Text = "Январь"

grdTable.Row = 2
grdTable.Text = "Февраль"

grdTable.Row = 3
grdTable.Text = "Март"

grdTable.Row = 4
grdTable.Text = "Апрель"

grdTable.Row = 5
grdTable.Text = "Май"

grdTable.Row = 6
grdTable.Text = "Июнь"

grdTable.Row = 7
grdTable.Text = "Июль"

setcolwidth
fillCells

End Sub

Public Sub fillCells()
Dim rowCounter, ColCounter
For ColCounter = 1 To 4 Step 1
grdTable.Col = ColCounter
For rowCounter = 1 To 12 Step 1
grdTable.Row = rowCounter
grdTable.Text = "Неизвестно"
Next
Next
End Sub

Public Sub setcolwidth()
Dim counter
For counter = 0 To 4 Step 1
grdTable.ColWidth(counter) = 1450
Next
End Sub

