Public Class frmKatSelect
    Inherits System.Windows.Forms.Form
    Friend ts As DataGridTableStyle
    Friend ds As DataSet
    Friend myTblName As String

    Public Sub New(ByRef ds As DataSet, ByRef myTblName As String, ByRef ts As DataGridTableStyle)
        Me.ds = ds
        Me.myTblName = myTblName
        Me.ts = ts
....
    End Sub
    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
...
    Private Sub frmSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DataGrid1.SetDataBinding(ds, myTblName)
        Me.DataGrid1.TableStyles.Add(Me.ts)
        Dim dgc As DataGridTextBoxColumn
        For Each dgc In DataGrid1.TableStyles( 0 ).GridColumnStyles
            AddHandler dgc.TextBox.KeyPress, AddressOf TextBoxKeyPressHandler
            AddHandler dgc.TextBox.Validated, AddressOf Proc1
            AddHandler dgc.TextBox.KeyUp, AddressOf Proc2
            AddHandler dgc.TextBox.KeyDown, AddressOf Proc2
        Next dgc
...

        Dim crm As CurrencyManager
        crm = Me.BindingContext(DataGrid1.DataSource, myTblName)
        AddHandler crm.PositionChanged, AddressOf Proc2