[VB6] Colore bordo di una ListBox

[Amok]

Ciao a tutti.
Ho creato una listbox impostando l'appearance a 0 (flat) però rimane un fastidioso bordo nero. Esiste la possibilità di modificare il colore del bordo della listbox?

[MdE2005]

L'unico modo è ricorrere ad uno stratagemma:

inserisci uno shape, che abbia come borderwidth = 2 (minimo)e come bordercolor il colore che desideri te.

Nell'evento Load del form inserisci questo:

With Shape1
.Width = List1.Width + 20
.Height = List1.Height + 30
.Left = List1.Left
.Top = List1.Top
End With

Prova a vedere se il risultato ti soddisfa..

Ciao

[Amok]

Ho provato a mettere in pratica il tuo suggerimento ma noto che lo shape resta dietro alla listabox per cui non copre il bordo nero della stessa.

[Amok]

Ho risolto sfruttando l'idea di MdE2005.
Ho usato una picturbox leggermente piu piccola della listbox quindi nel form load ho settatato la picturebox come container della listbox.
Cosi funziona.
Grazie per l'aiuto.

[multijet]

Puoi spiegare meglio cosa hai fatto?
Grazie

[Amok]

Dunque in pratica ho creato una Listbox e ho settato a flat l'appearance quindi le ho messo lo sfondo del form. A questo punto per togliere i bordi neri ho creato sopra alla Listbox una Picturebox della stessa dimensione della Listbox settandola a flat anche questa con lo stesso sfondo del form e nella proprietà borderstyle ho messo none. Da codice poi nell'evento form_load ho scritto
Set List1.Container = Picture1

Siccome da me si vedevano ancora qualche bordo ho settato sempre da codice le dimensioni della Picturebox più piccole di 10-15 pixel rispetto alla Listbox. Cosi i bordi sono spariti.

[multijet]

Grazie 1000.