Ciao Lauramoon,
considerato che "è un'applicazione a scopo benefico" posto il seguente progetto completo (comunque sempre a titolo d'esempio).
Per farlo funzionare devi, prima di tutto caricare un file di risorse: Aggiunte>Gestione aggiunte ...>Editor Risorse VB6> seleziona Caricato/Scaricato e Carica all'avvio. A questo punto vedrai apparire l'icona nella barra degli strumenti. Fai clic sull'icona (Editor risorse VB)e si aprirà la relativa finestra.
Nella Barra delle icone troverai l'icona Immagine "Aggiungi BitMap"
clic sopra e seleziona l'immagine dall'HD, così via per tutte le immagini che vorrai caricare nel file di risorse.
Inserisci il seguente codice nel nuovo progetto VB (nel quale avrai inserito il predetto file.res):
codice:
Option Explicit
' Variabile per acquisire il Nome dell'immagine:
Dim sEntry As String
'----------------------------------
Private Sub Form_Load()
    Call ConfigCombo
End Sub
'----------------------------------
'Inserisce valori in una casella combinata:
Private Sub ConfigCombo()
    
    Dim sEntry As String
    Dim i As Single
    
    Combo1.Clear
    
   'Conta da 0 a 5:
   For i = 0 To 5
       'Crea un elemento dal Nome Immagine e n° = i:
        sEntry = "Immagine " & i
        'Aggiunge l'elemento sino a 5 (Totale 6 Immagini):
        Combo1.AddItem sEntry
   Next i

End Sub
'----------------------------------
Private Sub Combo1_Click()
    'In base alla selezione carica l'immagine:
    Select Case Combo1.ListIndex
        Case Is = 0
            Set Form1.Image1.Picture = LoadResPicture(101, vbResBitmap)
            With Form1.Image1
                .Top = 1800
                .Left = 1200
                .Height = 6735
                .Width = 9255
            End With
        Case Is = 1
            Set Form1.Image1.Picture = LoadResPicture(102, vbResBitmap)
            With Form1.Image1
                .Top = 1800
                .Left = 1200
                .Height = 6735
                .Width = 9255
            End With
        Case Is = 2
        '... ...
        Case Is = 5
        
    End Select
End Sub
Inserisci un controllo ComboBox ed un controllo Image nella Frm.
Ciao e buon lavoro !