Public Sub getAssests()
        If Not importantAssetsIDS.Keys.Count > 0 Then
            With importantAssetsIDS
                .Add(14343, "Silo")
                .Add(27897, "Jump Bridge")
                .Add(12237, "Ship Maintenance Array")
            End With
        End If
        Dim list As New List(Of Long)

        Form1.tools.printVerboseLine("Starting to get asset data from api")
        assestsListAPI.UpdateData(EveApiBase.UpdateCharaceristics.OnlineOnly)
        Form1.tools.printVerboseLine("Asset data has been retrieved")

        For Each item In assestsListAPI.Data
            If importantAssetsIDS.ContainsKey(item.TypeID) Then
                importantAssets.Add(item.ItemID, item)
                list.Add(item.ItemID)
            End If
            assetList.Add(item.ItemID, item)
        Next

        getLocations(list)
    End Sub

    Public Sub getLocations(ByVal list As List(Of Long))
        locationAPI.Data.Clear()
        locationAPI.AuthenticationData.LocationIDs = list
        locationAPI.UpdateData(EveApiBase.UpdateCharaceristics.OnlineOnly)'<- is where it breaks
    End Sub