Anche il caricamento rtf sono riuscito a farlo ora mancano i pulsanti
mi aiutate please?

Grazie 1000

codice:
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
    RichTextBox1.LoadFile (App.Path & "/risorse/mario.rtf")
    Picture1.Picture = LoadPicture(App.Path & "/risorse/mario.jpg")
Case 1
    RichTextBox1.LoadFile (App.Path & "/risorse/marco.rtf")
    Picture1.Picture = LoadPicture(App.Path & "/risorse/marco.jpg")
Case 2
    RichTextBox1.LoadFile (App.Path & "/risorse/gino.rtf")
    Picture1.Picture = LoadPicture(App.Path & "/risorse/gino.jpg")
End Select
End Sub