Visual Basic - Un gran problema!!!

hola a todos.
tengo un cuadro de texto , tengo q poner un numero, al poner un numero, por ejemplo 4, este me tiene q hacer un conteo de este tipo, 1*2*3*4 = 24, o si es 6(por ejemplo), es 1*2*3*4*5*6 = 720,,,y declarar el resultado en una etiqueta, claro, dandole click a algun boton, ya eh intentado con la opcion de for netx y do while..
q debo hacer.
gracias de antemano.

Lo que deseas es calcular el factorial de un número, puedes hacerlo recursivam,ente o iterativamente, como más te guste;

Algoritmo recursivo:

Public sub Factorial(N as Integer) as Integer
if N=0 then
Factorial=1
else
Factorial=Factorial(N-1)*N
end if
end sub

al poner tu logica me da error, (expected array) y me senala el factorial, y si lo cambio es lo mismo, como hago para q sea decreciente.?
gracias de verdad

Function Factorial(n As Integer) As Integer
If n = 0 Then
Factorial = 1
Else
Factorial = Factorial(n - 1) * n
End If
End Function

Acabo de probar este código y me funciona, la llamada seria Label1.Caption=Factorial(Text1.text)

yo tengo esto, y no me hace nada.q puedo hacer y gracias de verdad.

Function Factorial(n As Integer) As Integer
number.Text = Factorial
If n = 0 Then
Factorial = 1
Else
Factorial = Factorial(n - 1) * n
End If
Label1.Caption = Factorial

puedo tener esto...como ejecutaria la funcion?

Private Sub Command1_Click()
Function Factorial(n As Integer) As Integer
number.Text = Factorial
If n = 0 Then
Factorial = 1
Else
Factorial = Factorial(n - 1) * n
End If
Label1.Caption = Factorial

End Function

End Sub

Te he enviado un e-mail con un proyecto de ejemplo

me la puedes mandar a este correo, es que este lo tengo full, sabes hotmail no es muy bueno..mandalo al de una amiga q es, [email protected],
te lo agradeceria de corazon.
gracias de verdad

gracias.