AddHandler tmpradio.DataBound, AddressOf <b>enableradio</b>

...


Sub enableradio(ByVal s As Object, ByVal e As EventArgs)
        Dim r As RadioButtonList = CType(s, RadioButtonList)

        For Each l As ListItem In r.Items
            Dim str As String() = l.Value.Split(";")
            Dim idstudio As Integer = Str(0)

            l.Enabled = CheckRadio(idstudio)
        Next

End Sub

Dim tmpradio As RadioButtonList = New RadioButtonList
                    tmpradio.DataSource = filterradiobutton(ds.Tables(0), i, drv("idtipostudi"))
                    tmpradio.DataTextField = "textfield"
                    tmpradio.DataValueField = "valuefield"
                    tmpradio.DataBind()
                    tmpradio.Items.Insert(0, New ListItem("nessuno", "0"))
                    tmpradio.SelectedIndex = 0
                    myview.Controls.Add(tmpradio)

                    AddHandler tmpradio.DataBound, AddressOf enableradio