AddHandler cb1.SelectedIndexChanged, AddressOf _
   frmimport.cb1_SelectedIndexChanged

fg viperbone

    Public Sub cb1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs)
        Dim c As Control = sender
        If c.Text = "Neue Spalte" Then
            For Each c1 As Control In Me.Controls
                If TypeOf (c1) Is TextBox Then
                    If c.Name = c1.Name Then
                        c1.ReadOnly = False
                    End If
                End If
            Next
        Else
            For Each c1 As Control In Me.Controls
                If TypeOf (c1) Is TextBox Then
                    If c.Name = c1.Name Then
                        c1.ReadOnly = True
                    End If
                End If
            Next
        End If
    End Sub

fg viperbone

AddHandler CType(......).SelectedIndexChanged, AddressOf .....