Beleza mais você pode colocar uma parte do codigo para explicar?! Abraços.. Ai galera consegui segui o codigo para vocês. Dim check As New CheckBox() check.Size = New Size(100, 30) check.Location = New Point(20, 20) check.Name = "chk_1" check.Text = "checkbox1" Me.Controls.Add(check) AddHandler check.CheckedChanged, AddressOf Me.ClickDoCheckbox função q controla o evento:: Public Sub ClickDoCheckbox(ByVal sender As Object, ByVal e As System.EventArgs) ' Se mais de um botão invocar este método, ' podemos descobrir onde foi o click pelo ' nome do botão. O parâmetro sender serve ' justamente para sabermos quem invocou ' o método. Sabemos que foi um botão... Dim check As CheckBox = DirectCast(sender, CheckBox) ' ... agora sabemos o nome dele e tudo o mais.. ' MessageBox.Show("Você clicou em " & check.Name) If (check.Checked = True) Then MsgBox("Marcado") Else MsgBox("Não marcado") End If End Sub