Inizialize an Jarray wih n JObject that contain an progressive index
Instead of creating JObject after JObject you should create it once without the areaNum property. Then in a loop you should DeepClone() it and use AddFirst(), if positions matter, to add the areNum property like so  

    Dim original As JObject = New JObject(
    New JProperty("numbers", New JArray({New JArray({}), New JArray({}), New JArray({})})),
    New JProperty("systems", New JArray({""})),
    New JProperty("multiplier", New JArray({""})),
    New JProperty("qp", False),
    New JProperty("series", False),
    New JProperty("noseries", False),
    New JProperty("twodigit", False),
    New JProperty("onedigit", False),
    New JProperty("void", False))

    For i As Integer = 1 To 5
        Dim panel As JObject = original.DeepClone
        panel.AddFirst(New JProperty("areaNum", i))
        panelsArray.Add(panel)
    Next i