Comment afficher et supprimer une image [Résolu]

Option Explicit

Private Sub Command1_Click(Index As Integer)
    Select Case (Index)
        Case Is = 0 ' ajouter
            Image1.Picture = LoadPicture(App.Path & "\image.jpg")
        Case Is = 1 ' supprimer
            Image1.Picture = Nothing
    End Select
End Sub

Private Sub Form_Load()
    Image1.Picture = LoadPicture(App.Path & "\quatre-quarts-citron-et-noix-de-coco.jpg")
End Sub