Eventos en Visual Basic

Public Class Form1

    Private Sub Color_Click(sender As Object, e As EventArgs) Handles Color.Click
        Me.BackColor = Drawing.Color.LightBlue
    End Sub

    Private Sub Maximizar_Click(sender As Object, e As EventArgs) Handles Maximizar.Click
        Me.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub Mostrar_MouseMove(sender As Object, e As MouseEventArgs) Handles Mostrar.MouseMove
        Label1.Visible = True
    End Sub

    Private Sub Minimizar_Click(sender As Object, e As EventArgs) Handles Minimizar.Click
        Me.WindowState = FormWindowState.Normal
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Eventos.ListBox.Show()
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Eventos.CheckBox.Show()
    End Sub

    Private Sub Salir_Click(sender As Object, e As EventArgs) Handles Salir.Click
        Me.Close()
    End Sub
End Class

Public Class CheckBox

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Resultado As String
        If TextBox1.Text = "" Then
            MsgBox("Debe ingresar un nombre", vbExclamation, "Encuesta")
            Exit Sub
        End If
        Resultado = "Su nombre es " & TextBox1.Text & vbNewLine
        If CheckBox1.Checked = 0 Then
            Resultado = Resultado & "Usted no es mayor de edad"
        Else
            Resultado = Resultado & "Usted es mayor de edad"
        End If
        Resultado = Resultado & vbNewLine
        If CheckBox2.Checked = 0 Then
            Resultado = Resultado & "Usted no tiene Hijos"
        Else
            Resultado = Resultado & "Usted tiene hijos"
        End If
        Resultado = Resultado & vbNewLine
        If CheckBox3.Checked = 0 Then
            Resultado = Resultado & "Usted no estudió una Carrera"
        Else
            Resultado = Resultado & "Usted estudió una Carrera"
        End If
        MsgBox(Resultado, vbInformation, "Encuesta")
    End Sub
End Class

Public Class ListBox

    Private Sub Agregar_Click(sender As Object, e As EventArgs) Handles Agregar.Click
        If TextBox1.Text = "" Then
            MsgBox("Debe ingresar un nombre para poder agregar un elemento", vbQuestion +
             vbOKOnly, "Datos incompletos")
            'Salimos de la rutina ya que no se ha ingresado nada en el control text1
            Exit Sub
        End If
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = ""
    End Sub

    Private Sub Eliminar_Click(sender As Object, e As EventArgs) Handles Eliminar.Click
        'Si la lista no está vacía entonces podemos eliminar
        If ListBox1.TabIndex <> 1 Then
            'Eliminamos el elemento que se encuentra seleccionado
            ListBox1.Items.Remove(ListBox1.SelectedItem)
        End If
    End Sub

End Class