I have find ... sorry !
Case lst001
SelItem$ = SendMessage( lst001, "LM_GETCAPTION" )
If SelItem$="640/480 en 16 Bits" Then
Exit
EndIf
Case lst001
SelItem$ = SendMessage( lst001, "LM_GETCAPTION" )
If SelItem$="640/480 en 16 Bits" Then
Exit
EndIf