Sub CopyProductsArrayToDataGridView()
        If Me.InvokeRequired Then
            Dim d As New ContextCallback(AddressOf _
              CopyProductsArrayToDataGridView)
            Me.Invoke(d, New Object() {[Text]})
        Else
            Dim MaxIndex As Integer
            dgv_Products.Rows.Clear()
            If Shop Is Nothing Then Exit Sub 'No Shop
 
            For i = 0 To UBound(Shop)
                If Shop(i).Products Is Nothing Then Exit Sub 'No Product
                MaxIndex = UBound(Shop(i).Products)
                For j = 0 To MaxIndex
                    Dim n As Integer = dgv_Products.Rows.Add()
                    dgv_Products.Rows.Item(n).Cells(0).ValueType = GetType( _
                      String)
                    dgv_Products.Rows.Item(n).Cells(0).Value = Shop(i).Name
                    dgv_Products.Rows.Item(n).Cells(1).ValueType = GetType( _
                      String)
                    dgv_Products.Rows.Item(n).Cells(1).Value = Shop(i).Products( _
                    j).sku
                    dgv_Products.Rows.Item(n).Cells(2).ValueType = GetType( _
                    String)
                    dgv_Products.Rows.Item(n).Cells(2).Value = Shop(i).Products( _
                    j).Name
                    dgv_Products.Rows.Item(n).Cells(3).ValueType = GetType( _
                    String)
                    dgv_Products.Rows.Item(n).Cells(3).Value = CBool(Shop( _
                    i).Products(j).manage_stock)
                    dgv_Products.Rows.Item(n).Cells(4).ValueType = GetType( _
                    String)            
                    dgv_Products.Rows.Item(n).Cells(5).ValueType = GetType( _
                    String)
                    dgv_Products.Rows.Item(n).Cells(5).Value = CBool(Shop( _
                    i).Products(j).in_stock)
                    dgv_Products.Rows.Item(n).Cells(6).ValueType = GetType( _
                    String)
                    dgv_Products.Rows.Item(n).Cells(6).Value = Shop(i).Products( _
                    j).Id         
                Next j
            Next i
        End If
    End Sub