Public Class frmMultiView
    Dim dvlist As New List(Of DataGridView)
    Private Sub frmMultiView_Load(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
       Me.Width = 700
       For i As Integer = 0 To 2
          Dim dv As New DataGridView With _
           {.Left = i * 200, .Top = 0, .Width = 190, .Height = 200, _
          .Parent = Me}
          dv.Tag = CStr(i)
          dvlist.Add(dv)
          AddHandler dv.MouseClick, AddressOf dv_MouseClick
       Next i
    End Sub
 
    Private Sub dv_MouseClick(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim dv As DataGridView = CType(sender, DataGridView)
        MsgBox("Das Grid " & CStr(dv.Tag) & " ist angeclickt worden")
    End Sub
End Class