Public Class frmSplitDemo
 
    Dim spc1 As New SplitContainer With {.Parent = Me, .Dock = DockStyle.Fill}
    Dim spc2 As New SplitContainer With {.Parent = spc1.Panel1, .Dock = _
      DockStyle.Fill}
    Dim WithEvents dgv As New DataGridView With {.Parent = spc2.Panel1, .Dock = _
    DockStyle.Fill}
 
 
    Private Sub dgv_Click(sender As Object, e As EventArgs) Handles dgv.Click
        MsgBox("DGV-Click")
    End Sub
 
 
    Private Sub frmSplitDemo_Load(sender As Object, e As EventArgs) Handles _
      Me.Load
        dgv.Columns.Add("DGV-Spalte", "DGV-Spalte")
    End Sub
 
 
    Private Sub dgv_CellMouseMove(sender As Object, 
                e As DataGridViewCellMouseEventArgs) Handles dgv.CellMouseMove
        Me.Text = e.RowIndex.ToString & " | " & e.ColumnIndex.ToString
    End Sub
End Class