XProfan

Declare lb1&,alt_lb_zh&,z&

Proc sLB_Hight      setting new Zeilenhöhe and gives The previous back

    Parameters LB_Hndl&,Hoehe&
    Declare oHoehe&
    oHoehe& = SendMessage(LB_Hndl&,$01A1,0,0)    lb_GetItemHeight
    SendMessage(LB_Hndl&,$01A0,0,Hoehe&)  lb_SetItemHeight
    SendMessage(LB_Hndl&,$0195,1,0)  lb_SetColumnWidth (here Repaint)
    Return oHoehe&

ENDPROC

Cls
lb1&=Create(ListBox,%HWnd,,20,20,200,400)
AddStrings(lb1&,row Nr.: 1)
AddStrings(lb1&,row Nr.: 2)
AddStrings(lb1&,row Nr.: 3)
AddStrings(lb1&,row Nr.: 4)
z& = 4

WhileNot Or(Or(Equ(%Key,2),Equ(%MenuItem,-2)),Gt(z&,9))

    Sleep 800
    alt_lb_zh& = sLB_Hight(lb1&,25)       set new Zeilenhöhe in ListBox and save old
    Sleep 800
    sLB_Hight(lb1&,30)             set new Zeilenhöhe in ListBox
    Sleep 800
    sLB_Hight(lb1&,35)             set new Zeilenhöhe in ListBox
    Sleep 800
    sLB_Hight(lb1&,alt_lb_zh&)  set old Zeilenhöhe in ListBox
    Inc z&
    AddStrings(lb1&,Add$(row Nr.: ,Str $(z&)))

EndWhile

End