Visual Basic - Fechas

Señores:
Necesito de vuestra ayuda en lo siguiente:
tengo una text en la cual solo quiero ingresar fecha por ejemplo (05/05/2005), eneste momento puedo ingresar datos como el siguiente (1234567).
Como puedo setiarlo para que solo ingrese fecha y nada mas???


Gracias por vuestra ayuda.

pero puedes usar otros controles, como el maskedit o el datepicker, se te va ser mas facil el trabajo, en vez de estar rompiendote para validar una caja de texto, Suerte.

como consigo el maskedit?
gracias

claro es un componente que tienes que agregar.
Microsoft Masked Edit Control 6.0

Agregalo y listo.

oye y este especie de tex solo me permite ingresar fechas?????

si la memoria no me falla, tiene un propiedad llamada Mask o Format el cual le das ahi el tipo de formato que deseas se ingrese en la caja.
Creo que queda algo asi:

__/__/____

revisa este link:

http://msdn.microsoft.com/library/spa/default.asp?url=/library/SPA/masked/html/vbobjMaskEdit.asp

no me funco socio,

Utiliza una caja de texto.
Esta funcion valida una fecha que sea correcta.

Function ValidaFecha(ByRef wFecha As String) As Boolean
Dim wValores(3) As String
Dim wPos As Integer
Dim wI As Integer

ValidaFecha = True
If Not IsDate(wFecha) Or Len(wFecha) < 10 Then
ValidaFecha = False
Exit Function
End If
wPos = 1
For wI = 1 To Len(wFecha)
If Mid(wFecha, wI, 1) = "/" Or Mid(wFecha, wI, 1) = "-" Then
wPos = wPos + 1
Else
wValores(wPos) = wValores(wPos) & Mid(wFecha, wI, 1)
End If
Next wI
If Val(wValores(1)) = 0 Or Val(wValores(2)) = 0 Or Val(wValores(3)) = 0 Or _
Val(wValores(2)) > 12 Or Val(wValores(1)) > 31 Then
ValidaFecha = False
Exit Function
End If
'***** Validar el Dia del Mes
Select Case Val(wValores(2))
Case 2
If Val(wValores(3)) Mod 4 = 0 Then
If Val(wValores(1)) > 29 Then ValidaFecha = False
Else
If Val(wValores(1)) > 28 Then ValidaFecha = False
End If
Case 1, 3, 5, 7, 8, 10, 12
If Val(wValores(1)) > 31 Then ValidaFecha = False
Case 4, 6, 9, 11
If Val(wValores(1)) > 30 Then ValidaFecha = False
End Select
If ValidaFecha Then
wFecha = Format(Val(wValores(1)), "00") & "-" & _
Format(Val(wValores(2)), "00") & "-" & _
Format(Val(wValores(3)), "0000")
End If
End Function

***
Lo demas lo tienes que hacer por tu propia cuenta, no puedo hacer mas por ti ok.

gracias