Hi,

I've solved the Error myself.
Here is the result.

VB Code:
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  2.         Static lastclick As Double = 0

  3.         Dim ThisClick As Double = DateAndTime.Timer

  4.         If ThisClick > lastclick + 0.5 Then

  5.             TextBox1.Text = "First Click"

  6.  
  7.         Else

  8.             TextBox1.Text = "Second Click"

  9.  
  10.         End If

  11.         lastclick = DateAndTime.Timer

  12.  
  13.     End Sub
Anyway thanks for this code, learned more.

sparrow1