[VB6] Aiuto azioni su listbox

[xamira]

Sono riuscito in parte nel mio intento:

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
    Text1.Text = "Mario"
    Picture1.Picture = LoadPicture(App.Path & "/risorse/mario.jpg")
Case 1
    Text1.Text = "Marco"
    Picture1.Picture = LoadPicture(App.Path & "/risorse/marco.jpg")
Case 2
    Text1.Text = "Gino"
    Picture1.Picture = LoadPicture(App.Path & "/risorse/gino.jpg")

End Select
End Sub

Vorrei sapere come caricare un rtf da codice al posto di text1 così creo file esterno e formattato

E posto di nuovo il problema per i vari pulsanti che non sono riuscito a risolvere.

Grazie 1000