VB.NET Forms Panel repeated grids height Sizing - vb.net

Question

I'm more of website developer with C# and having difficulty with VB.Net forms with VB.NET. Please review the screenshot. Parts blue color bar is header label in Panel. After that, there are some labels and then there is a Grid (LocationGrd). There are two rows, and I'm repeating the labels and location grid. How do I reduce the gap between the top and bottom boxes, there is too much gap between the first and second control boxes. Any clue?
For Index = 0 To Core.POParts.Count - 1
PartTypeDT = App.GetPartTypeForPart(Core.POParts(Index).PartNum, Core.POParts(Index).ProjectCodeOrSalesOrderID, Core.POParts(Index).IsProject)
'// Part Number
Core.PartNumLblArray.Add(GetLabel(PartNumLbl_Const, Index))
PartsPnl.Controls.Add(Core.PartNumLblArray(Index))
Core.PartNumTxtArray.Add(GetText(PartNumTxt_Const, Index, Core.POParts(Index).PartNum, Core.POParts(Index).PartID, MyBackColor))
PartsPnl.Controls.Add(Core.PartNumTxtArray(Index))
......
Next
Private Function GetLocationsGrd(Index As Integer) As DataGridView
Dim MyGrd As New DataGridView
Dim MyLocationCol As New System.Windows.Forms.DataGridViewComboBoxColumn()
Dim MyQuantityCol As New System.Windows.Forms.DataGridViewTextBoxColumn()
MyLocationCol.FillWeight = LocationCol.FillWeight
MyLocationCol.HeaderText = "Location"
MyLocationCol.Name = "LocationCol_" & Index
MyQuantityCol.DefaultCellStyle = QuantityCol.DefaultCellStyle
MyQuantityCol.FillWeight = QuantityCol.FillWeight
MyQuantityCol.HeaderText = "Quantity"
MyQuantityCol.Name = "QuantityCol_" & Index
With MyGrd
.AllowUserToDeleteRows = False
.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {MyLocationCol, MyQuantityCol})
.ContextMenuStrip = Me.ALContextMenuStrip
.Location = New System.Drawing.Point(LocationsGrd.Left, (Index * 200) + LocationsGrd.Top)
.Name = LcationsGrd_Const & Index
.Size = New System.Drawing.Size(LocationsGrd.Width, LocationsGrd.Height)
End With
Return MyGrd
End Function