Try removing one of the loops e.g. (warning - untested)
Dim strTileInfo As String = Nothing
Dim i As Integer = 0
For Each tile As TileItem In TheTileControl.Items
strTileInfo = Nothing
tile.Text = Nothing
If i < ListView.Items.Count
strTileInfo = ListView.Items(i).Text & vbCrlf & ListView.Items(i).SubItems(1).Text
tile.Text = strTileInfo
End If
i = i + 1
Next