this program is in CONSOLE OF VB.NET PLS CONVERT IT TO WINDOW APPLICATIO PLS


Module m1

Sub Main()

Dim n, libo, daan, pagitanngsampu, isa, sampu, lolipop As Integer
Dim layas As String = ""
Dim unangletra As Char
Dim tali As String
Console.WriteLine("")
Console.WriteLine(" convert number in words ")
Console.Write("---------------------------------------------------- ")

Console.Write("Enter a number from 1 to 9999: ")

n = Console.ReadLine()
If n > 9999 Then
Console.Write("Number exceeds maximum recommended input.")
Else


libo = n \ 1000
n = n Mod 1000

daan = n \ 100
n = n Mod 100

If n >= 11 AndAlso n <= 19 Then
pagitanngsampu = n Mod 10
Else
sampu = n \ 10
n = n Mod 10
isa = n
End If
End If

If libo = 1 Then

layas = layas + "one thousand "

ElseIf libo = 2 Then

layas = layas + "two thousand "

ElseIf libo = 3 Then
layas = layas + "three thousand "

ElseIf libo = 4 Then
layas = layas + "four thousand "

ElseIf libo = 5 Then
layas = layas + "five thousand "

ElseIf libo = 6 Then
layas = layas + "six thousand "

ElseIf libo = 7 Then
layas = layas + "seven thousand "

ElseIf libo = 8 Then
layas = layas + "eight thousand "

ElseIf libo = 9 Then
layas = layas + "nine thousand "

End If


If daan = 1 Then
layas = layas + "one hundred "

ElseIf daan = 2 Then
layas = layas + "two hundred "

ElseIf daan = 3 Then
layas = layas + "three hundred "

ElseIf daan = 4 Then
layas = layas + "four hundred "

ElseIf daan = 5 Then
layas = layas + "five hundred "

ElseIf daan = 6 Then
layas = layas + "six hundred "

ElseIf daan = 7 Then
layas = layas + "seven hundred "

ElseIf daan = 8 Then
layas = layas + "eight hundred "

ElseIf daan = 9 Then
layas = layas + "nine hundred "
End If


If pagitanngsampu = 1 Then

layas = layas + "eleven "

ElseIf pagitanngsampu = 2 Then
layas = layas + "twelve "

ElseIf pagitanngsampu = 3 Then
layas = layas + "thirteen "

ElseIf pagitanngsampu = 4 Then
layas = layas + "fourteen "

ElseIf pagitanngsampu = 5 Then
layas = layas + "fifteen "

ElseIf pagitanngsampu = 6 Then
layas = layas + "sixteen "

ElseIf pagitanngsampu = 7 Then
layas = layas + "seventeen "

ElseIf pagitanngsampu = 8 Then
layas = layas + "eighteen "

ElseIf pagitanngsampu = 9 Then
layas = layas + "nineteen "

End If

If sampu = 1 Then

layas = layas + "ten "

ElseIf sampu = 2 Then

layas = layas + "twenty "

ElseIf sampu = 3 Then
layas = layas + "thirty "

ElseIf sampu = 4 Then
layas = layas + "fourty "

ElseIf sampu = 5 Then
layas = layas + "fifty "

ElseIf sampu = 6 Then
layas = layas + "sixty "

ElseIf sampu = 7 Then
layas = layas + "seventy "

ElseIf sampu = 8 Then
layas = layas + "eighty "

ElseIf sampu = 9 Then
layas = layas + "ninety "

End If


If isa = 1 Then
layas = layas + "one "

ElseIf isa = 2 Then
layas = layas + "two "

ElseIf isa = 3 Then
layas = layas + "three "

ElseIf isa = 4 Then
layas = layas + "four "

ElseIf isa = 5 Then
layas = layas + "five "

ElseIf isa = 6 Then
layas = layas + "six "

ElseIf isa = 7 Then
layas = layas + "seven "

ElseIf isa = 8 Then
layas = layas + "eight "

ElseIf isa = 9 Then
layas = layas + "nine "

End If

lolipop = Len(layas)
unangletra = UCase(Left(layas, 1))
tali = Mid(layas, 2, lolipop)
Console.Write("")
Console.Write("{0}{1}", unangletra, tali)
Console.ReadLine()
End Sub


End Module