Non ho sottomano VB6, ma qualcosa del genere dovrebbe funzionare:
codice:
Public Function crea(Tipo, Vtag As String, VHeight, Vleft, Vtop, VWidth As Integer)
    Dim i As Integer
    Dim img As ImageBox
    Select Case Tipo
        Case "uno"
            Set img=Image1
        Case "due"
            Set img=Image2
        '...
    End Select
    If Not (img Is Nothing) Then
        With img
            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