Private Sub Form_Load()
MSFlexGrid1.Rows = 10
MSFlexGrid1.Cols = 10
For i = 0 To 9
For j = 0 To 9
MSFlexGrid1.TextMatrix(i, j) = i & "," & j
Next
Next
End Sub
Private Sub MSFlexGrid1_Click()
'MSFlexGrid1.RowHeight(MSFlexGrid1.Row) = 0
MSFlexGrid1.ColWidth(MSFlexGrid1.Col) = 0
End Sub
Private Sub Form_Load()
With Me.MSHFlexGrid1
.Cols = 3
.ColWidth(0) = 1000
.Text = "Name"
.ColWidth(1) = 0
.ColWidth(2) = 1500
.Text = "Meno"
End With
End Sub