salve, mi ritrovo con una funzione molto ripetitiva, mi sapreste consigliare un metodo x riassumere un po' il tutto?
La funzione è questa:

codice:
Public Function crea(Tipo, Vtag As String, VHeight, Vleft, Vtop, VWidth As Integer)
Dim i As Integer
    If Tipo = "uno" Then
        With Image1
            i = .UBound + 1
            Load .Item(i)
            .Item(i).Visible = True
            .Item(i).Top = Vtop
            .Item(i).Width = VWidth
            .Item(i).Left = Vleft
            .Item(i).Height = VHeight
            .Item(i).Tag = Vtag
        End With

    If Tipo = "due" Then
        With Image2
            i = .UBound + 1
            Load .Item(i)
            .Item(i).Visible = True
            .Item(i).Top = Vtop
            .Item(i).Width = VWidth
            .Item(i).Left = Vleft
            .Item(i).Height = VHeight
            .Item(i).Tag = Vtag
        End With

'[...]

    End If
End Function

Essendoci tutto il blocco with ke si ripete + volte con l'unica differenza dell'oggetto a cui si riferisce (ImageBox) ho la netta sensazione k esista un modo x scrivere il blocco un'unica volta, mi potreste aiutare?
Grazie