Visual Basic

Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
    Private TextBoxCollection As New ArrayList<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        For Each ctrl As Control In Me.Controls<br />
            If TypeOf ctrl Is TextBox Then<br />
                TextBoxCollection.Add(DirectCast(ctrl, TextBox))<br />
                AddHandler ctrl.Validating, AddressOf txtvalidate_validating<br />
            End If<br />
        Next<br />
    End Sub<br />
<br />
    Private Sub txtvalidate_validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)<br />
        Dim txtSender As TextBox = DirectCast(sender, TextBox)<br />
        For Each txt As TextBox In TextBoxCollection<br />
            If Not txt Is txtSender AndAlso txt.Text = txtSender.Text AndAlso txt.Text <> "" Then<br />
                MsgBox("You have already filled this value")<br />
                e.Cancel = True<br />
                Exit For<br />
            End If<br />
        Next<br />
    End Sub<br />
End Class

AddHandler ctrl.Validated,AddressOf txtvalidate_validating<br />

Dim intime As DateTime<br />
dim outtime as datetime<br />
<br />
Dim tspan As TimeSpan = outtime.Subtract(intime

alpdoruk wrote:

what should i have to do for reset the result after it shoves to me