Bueno, he tratado por todos lados pero no he logrado solucionar un problema.
Resulta que encontrè un codigo para realizar dicha accion pero me da un problema de redundancia.

este es parte del codigo:

Select Case pn
Case 0 : Label4.Text = "cero"
Case 1 : Label4.Text = "uno"
Case 2 : Label4.Text = "dos"
Case 3 : Label4.Text = "tres"
Case 4 : Label4.Text = "cuatro"
Case 5 : Label4.Text = "cinco"
Case 6 : Label4.Text = "seis"
Case 7 : Label4.Text = "siete"
Case 8 : Label4.Text = "ocho"
Case 9 : Label4.Text = "nueve"
Case 10 : Label4.Text = "diez"
Case 11 : Label4.Text = "once"
Case 12 : Label4.Text = "doce"
Case 13 : Label4.Text = "trece"
Case 14 : Label4.Text = "catorce"
Case 15 : Label4.Text = "quince"
Case Is < 20 : Label4.Text = "Dieci" & Label4.Text(pn - 10)

End Select

el problema está en la ultima línea, ahí es donde se me crea el error. No se de que forma puedo hacer para que dentro del Case is me recorra nuevamente el select case para obtener el número en letras que acompaña al "Deci".
espero haberme hecho explicr con claridad y de esta manera poder obtener su ayuda.

saludos

Si usas nuestro buscador puedes encontrar un buen número de mensajes que tratan de este tema: por ejemplo aquí

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Hola,aca tenes un codigo de la pagina del guille para eso en visual .NET,tambien te podes bajar el source:

Convertir Número a Letras en VB.Net

saludos.

__________________
Todos somos ignorantes; lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein