View Single Post
  #4 (permalink)  
Old February 18th, 2008, 10:52 AM
zqureshi zqureshi is offline
Registered User
 
Join Date: Feb 2008
Location: london, , United Kingdom.
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Option Strict On
Public Class Form1

    Private Sub txtValidate_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles txtValidate.Click

        Dim DateOK As Boolean

        DateOK = IsDate(txtDate.Text)

        MessageBox.Show(DateOK.ToString)

    End Sub
End Class