XProfan

 $H commctrl.ph
 $H structs.ph
Struct LV_COLUMN = ~LV_COLUMN

Proc LV_SetColumnText

    Parameters Hdl&,Index%,Text$
    Declare Column#,Erfolg%
    Dim Column#,LV_COLUMN

    With Column#

        .mask& = ~LVCF_TEXT
        .pszText& = Addr(Text$)
        Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,Index%,Column#)

    EndWith

    Dispose Column#
    Return Erfolg%

EndProc

Cls
Var LV& = Create("GridBox",%hwnd,"Test 1;0;100;Test 2;0;100;Test 3;0;100",0,2,100,320,300)
waitinput

WhileLoop 0,2

    LV_SetColumnText(LV&,&Loop ,"Neu " + Str$(&Loop + 1))

Wend

waitinput

 $H commctrl.ph

Proc LV_SetColumn

    Parameters Hdl&,Mask&,Index%,Text$,w%
    Declare Column#,Erfolg%
    Dim Column#,24
    Long Column#,0=Mask&
    Long Column#,8= w%
    Long Column#,12=Addr(Text$)
    Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,Index%,Column#)
    Dispose Column#
    Return Erfolg%

EndProc

Proc LV_GETCOLUMN

    Parameters Hdl&,Index%
    Declare Column#,Text$,Erfolg%
    Dim Column#,24
    Text$ = MkStr$("\z",160)' hier anpassen, wenn die Texte länger sein sollten
    Long Column#,0=~LVCF_TEXT
    Long Column#,12=Addr(Text$)
    Long Column#,16=160' s.o.
    SendMessage(Hdl&,~LVM_GETCOLUMN,Index%,Column#)
    Return Text$

EndProc

Cls
Randomize
Var LV& = Create("GridBox",%hwnd,"Test 1;0;90;Test 2;0;90;Test 3;0;90;Test 4;0;90;Test 5;0;90",0,2,100,340,300)
waitinput

WhileLoop 0,4

    LV_SetColumn(LV&,(~LVCF_TEXT * Rnd(2)) | ~LVCF_WIDTH,&Loop ,"Neu " + Str$(&Loop + 1),Width(LV&) \ 5)

Wend

Print Trim$(LV_GETCOLUMN(LV&,Rnd(6)))
waitinput