Public Sub GridFlex_Load(ByRef grid As MSFlexGrid, _
                                          ByVal strForm As String)
buf = GetSetting(App.EXEName, strForm, grid.Name,  "")
Dim arr
arr = Split(buf, " ;")
For i =  0  To UBound(arr) -  1 
    grid.ColWidth(i) = arr(i)
Next i
End Sub

Public Sub GridFlex_Load(ByRef grid As MSFlexGrid, _
                                          ByVal strForm As String)

as object