codigos vb6

Private Sub Form_Load()
CmbIdioma.AddItem "Inglés"
CmbIdioma.AddItem
"Alemán"
CmbIdioma.AddItem
"Mandarin"
CmbNivel.AddItem
"Principiante"
CmbNivel.AddItem
"Intermedio"
CmbNivel.AddItem"Avanzado"
End Sub
Private Sub MnDatos_Click()
Dim Subtotal As Double
Dim Idioma, Nivel As String
Subtotal = 0

Subtotal = (550) *
(Numero_Estudiantes)
End Select

TxtSubtotal = SubtotalLsIdioma.AddItem CmbIdioma
LsNivel.AddItem CmbNivel
LsNumero.AddItem
TxtCantidad

Case "Alemán"

LsMonto.AddItem TxtSubtotal

Select Case Nivel
Case "Principiante"
Subtotal = (800) *(Numero_Estudiantes)
Case "Intermedio"
Subtotal = (900) *
(Numero_Estudiantes)
Case "Avanzado"
Subtotal = (850) *
(Numero_Estudiantes)
End Select

End Sub

Private Sub MnDatosE_Click()
Dim I AsInteger
Dim SumaTotal, Numand,
Totmand, CantidadIngles,
CantidadAleman,
CantidadMandarin,
Acumulativo, SumaIngles,
SumaAleman, SumaMandarin
As Integer

Numero_Estudiantes =
Val(TxtCantidad)Idioma = CmbIdioma.Text
Nivel = CmbNivel.Text

Select Case Idioma
'Select de los tipos de Idioma
Case "Inglés"
Select Case Nivel
Case "Principiante"
Subtotal = (500) *
(Numero_Estudiantes)Case "Intermedio"
Subtotal = (600) *
(Numero_Estudiantes)
Case "Avanzado"

Case "Mandarin"
'Select Tipo de Dominio del
Idioma de acuerdo al
Estudiante
Select Case Nivel
Case "Principiante"Subtotal = (400) *
(Numero_Estudiantes)
Case "Intermedio"
Subtotal = (500) *
(Numero_Estudiantes)
Case "Avanzado"
Subtotal = (450) *
(Numero_Estudiantes)
End Select
End Select

contador_for =0

Numand = 0
Totmand = 0
CantidadIngles = 0
CantidadAleman = 0
CantidadMandarin = 0
SumaTotal = 0
Acumulativo =
LsNumero.ListCount
SumaIngles = 0
SumaAleman = 0
SumaMandarin = 0

ForI = 0 To
LsNumero.ListCount - 1

SumaTotal = SumaTotal +
Val(LsNumero.List(I))

Select Case LsNivel.List(I)

TxtAleman = ""

Case "Intermedio"

TxtAlemanm = ""

Numand = Numand +...