DAM_Cambiar contenido de combobox dependiendo de otro vb.net

net, es el siguiente:

tengo un form con 3 combobox los cuales contienen:

combo1 = clase de empresa (publica, privada)

Combo2 = códigos de cada una de ellas (cambia de acuerdo a la clase)

Combo3 = nombre de cada empresa (debería cambiar dependiendo la elección del código)

El detalles es, como hacer para que al elegir digamos el código 01 del combo2, me cargue el nombre de la empresa en el combo3, por ahora tengo este código hecho en una clase método y otra parte en el formulario:

Imports System. Windows. Forms
Imports CapaNegocio

Public Class ClassMetodos
Implements IntMetodos

Public Sub CargarClase(cboclase As ComboBox) Implements IntMetodos.CargarClase
Cboclase. Items. Add("Publica")
Cboclase. Items. Add("Privada")
End Sub

Public Sub CargarCodPub(cbocod As ComboBox) Implements IntMetodos.CargarCodPub

Cbocod. Items. Add("001")
Cbocod. Items. Add("002")
Cbocod. Items. Add("003")
Cbocod. Items. Add("004")
Cbocod. Items. Add("005")

 End Sub

Public Sub CargarCodPriv(cbocod As ComboBox) Implements IntMetodos.CargarCodPriv

Cbocod. Items. Add("100")
Cbocod. Items. Add("200")
Cbocod. Items. Add("300")
Cbocod. Items. Add("400")
Cbocod. Items. Add("500")

 End Sub

Public Sub CargaNomPub(cboinsti As ComboBox) Implements IntMetodos.CargaNomPub
Cboinsti. Items. Add("EMPRESA 1")
Cboinsti. Items. Add("EMPRESA 2")
Cboinsti. Items. Add("EMPRESA 3")
Cboinsti. Items. Add("EMPRESA 4")

 End Sub

Public Sub CargaNomPriv(cboinsti As ComboBox) Implements IntMetodos.CargaNomPriv
Cboinsti. Items. Add("EMPRESA 100")
Cboinsti. Items. Add("EMPRESA 200")
Cboinsti. Items. Add("EMPRESA 300")
Cboinsti. Items. Add("EMPRESA 400")

Cboinsti. Items. Add("EMPRESA 500")

 End Sub

End Class

----------------------------------------------------

Esto carga el Formulario:

 Sub clasetipo()

'esto carga el codigo en el cboCodigo, que depende del cboClase

If cboClase.SelectedIndex = 0 Then
metodo.CargarCodPub(cboCodigo)
ElseIf cboClase.SelectedIndex = 1 Then
metodo.CargarCodPriv(cboCodigo)

End Sub

'aqui lo llamo y me carga el cboClase

Private Sub cboClase_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboClase.SelectedIndexChanged
cboCodigo.Items.Clear()
clasetipo()
End Sub

'aqui cargo el combo clase

Private Sub FrmRegistro_Load(sender As Object, e As EventArgs) Handles MyBase.Load
metodo.CargarClase(cboClase)
End Sub

El detalle entra aquí, lo que quisiera es que al elegir el cboclase cargue en el combo2 los códigos que corresponden, esto ya lo tengo, lo que quisiera es que al elegir, digamos, el item1 del combo2 me cargue el nombre en el combo3 sintaxis:

Cboclase: publica

Cbocodigo: 001

Cbonombre: empresa01 (esto que cargue automático)

Y así sucesivamente... Espero haber sido claro en mi exposición para que me puedan ayudar.