Protected Shared Function checkdataini(ByVal data As String) As Boolean
        Dim reg As Regex = New Regex("^([0]?[1-9]|[1|2][0-9]|[3][0|1])[.\/-]([0]?[1-9]|[1][0-2])[.\/-]([0-9]{4}|[0-9]{2})$")
        If (reg.IsMatch(data)) Then
                  Return True
        Else
            Return False
        End If
    End Function