Knowledge Base

An example mimic after ZOOM OUT:

The same mimic after ZOOM IN:

The function:

Private Sub Btn_ZoomIn_Click()
    Dim Index As Integer
    Dim MyFont As StdFont

    For Index = 1 To AIGrid1.RowCount   ‘For all the lines except the header
        AIGrid1.RowHeight(Index) = AIGrid1.RowHeight(Index) + 1
    Next
    For Index = 1 To AIGrid1.ColumnCount
        AIGrid1.ColumnWidth(Index) = AIGrid1.ColumnWidth(Index) + 1
    Next

    Set MyFont = AIGrid1.Font
    MyFont.Size = MyFont.Size + 1
    Set AIGrid1.Font = MyFont

    AIGrid1.Width = AIGrid1.TotalWidth
    AIGrid1.Height = AIGrid1.TotalHeight
    Set MyFont = Nothing    ‘release the object
End Sub