Porque não consigo aumentar a coluna? MSFLEXGRID

[ronaldo]

Estou usando o MSFLEXGRID do VISUAL BASIC:

No codigo abaixo não esto consegundo alterar o tamanho da 2º coluna. esta como o Visual basic, onde posso ter errado:

#include "FiveWin.ch"

function Main()

local oWnd, oActiveX,nLin, I

DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

oActiveX := TActiveX():New( oWnd, "MSFlexGridLib.MSFlexGrid.1" )
oActiveX:nLeft:=10
oActiveX:nWidth := 510

oActiveX:SetProp( "ColWidth(0)",500 )
oActiveX:SetProp( "BackColor", CLR_HRED )

oActiveX:SetProp( "Cols", 2 )

oActiveX:SetProp( "ColWidth(0)", 200 ) //aqui não esta funcionando
oActiveX:SetProp( "ColWidth(1)", 400 )//aqui não esta funcionando

FOR I=0 TO 5
oActiveX:Do( "AddItem", "")
oActiveX:SetProp( "Row", I )
oActiveX:SetProp( "Col", 0 )
oActiveX:SetProp( "Text", "Código "+strzero(I))

oActiveX:SetProp( "Col", 1 )
oActiveX:SetProp( "Text", "Nome "+Str(I,2))
NEXT


ACTIVATE WINDOW oWnd

return nil


Ronaldo Minacapelli
(11) 6950 3069