[الوليد ☺]

السلام عليكم ورحمة الله

جرب هذال الكود على مشروع جديد فيه فورم واحد واثنين داتاجريد وازرارين ومنه تقدر تطبق الفكرة على مشروعك
الازرارين عشان تضيف بيانات عشوائية للتجربة
آخر سطر اللي فيه ClientSize الرقم 30 هو المساحة بين داتاجريد2 ونهاية
الفورم عشان لو فيه أدوات تبان وغير الرقم إذا كنت تحتاج مساحة أكبرأو أصغر

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim D1Column1 As New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {D1Column1})

        Dim D2Column1 As New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.DataGridView2.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {D2Column1})

        DataGridViewHeightUpdate()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataGridView1.Rows.Add(New String() {"a" + Rnd().ToString})

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataGridView2.Rows.Add(New String() {"a" + Rnd().ToString})

    End Sub


#Region " DataGridViewHeightUpdate "

    Private Sub DataGridView1_RowHeightChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) _
    Handles DataGridView1.RowHeightChanged, DataGridView2.RowHeightChanged
        DataGridViewHeightUpdate()
    End Sub

    Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) _
    Handles DataGridView1.RowsAdded, DataGridView2.RowsAdded
        DataGridViewHeightUpdate()
    End Sub

    Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) _
    Handles DataGridView1.RowsRemoved, DataGridView2.RowsRemoved
        DataGridViewHeightUpdate()
    End Sub

    Private Sub DataGridViewHeightUpdate()
        'DataGridView1'
        Dim h1 As Integer = Me.DataGridView1.RowTemplate.Height
        For Each r1 As DataGridViewRow In DataGridView1.Rows
            h1 += r1.Height
        Next
        DataGridView1.Height = h1 + 1

        'DataGridView2'
        Dim h2 As Integer = Me.DataGridView2.RowTemplate.Height
        For Each r2 As DataGridViewRow In DataGridView2.Rows
            h2 += r2.Height
        Next
        DataGridView2.Height = h2 + 1

        DataGridView2.Top = DataGridView1.Bottom + 10

        'Form ClientSize'
        Me.ClientSize = New Size(Me.ClientSize.Width, Me.DataGridView2.Bottom + 30)

    End Sub

#End Region

End Class