Wish CreateList

    Type tTest(Elems As List)
    Private objTest As tTest

    objTest = CreatetTest(CreateList()) ' or a list of "fake numbers", like -1: CreateList(-1, -1, -1)

Public Sub CreatetTest (Elems As List) As tTest
    Dim t1 As tTest
    t1.Initialize

    t1.Elems = Elems
    Return t1
End Sub

    Type tTest(Elems As List)
    Private objTest As tTest

    objTest = CreatetTest(Null)

Public Sub CreatetTest (Elems As List) As tTest
    Dim t1 As tTest
    t1.Initialize

    If Elems.IsInitialized = False Then
        Elems.Initialize
    End If
    t1.Elems = Elems
    Return t1
End Sub

Public Sub CreateMutableList(ImmutableList As List) As List
 Dim l1 As List
 l1.Initialize
 l1.AddAll(ImmutableList)
 Return l1
End Sub

Dim myList As List = CreateList(obj1 : obj2 : obj3)

Dim myList As List = CreateList() 'would make every single B4X user happy while also not confusing a single one

Dim myMap As Map = CreateMap("key1" : obj1, "key2" : obj2, "key3" : obj3) 'is already similar in syntax

    Dim aList as LIst = CreateList(obj1, obj2, obj3)

Sub Test
        Dim aList As List = CreateList(Array("a", 1, True))
        Log(aList.Get(0) & TAB & aList.Get(1) & TAB & aList.Get(2))
End Sub

Private Sub CreateList(ar() As Object) As List
    Dim a As List
    a.Initialize
    For Each obj As Object In ar
        a.Add(obj)
    Next
    Return a
End Sub

Sub CreateList(VarPar() As Object) As List
    Dim L As List
    L.Initialize
    For Each O As Object In VarPar
        L.Add(O)
    Next
    Return L
End Sub

Dim Test As List = CreateList("One", 2, "Three", 4)