Timer & delay & sleep In VB 2005 enterprise edition Help Please

Salut. De cateva zile incerc sa imi dau seama cum lucreaza timer controlul in vb. Ce as vrea sa fa e ceva de genu: Apas un buton de comanda asteapta programu x secunde dupa care executa ceva sa zicem intr-un text box imi afiseaza un text. Dupa ore intregi de cautare pe google nu am aflat nimik "util". Va rog ajutati-ma
P. S. Sunt incepator in vb deci daca se poat explicatii la nivel de incepatori.
Mersi Anticipat

hianyzoli, on Jan 21 2008, 21:34, said:

O rezolvare la problema, fara timer, poate fi urmatoarea:
(codul de mai jos verifica daca s-a lansat o operatie mai devreme de 60 secunde de precedenta, iar daca da afiseaza un avertisment si asteapta pana cand trec cele 60 secunde; in intervalul acesta este afisat un progress bar):

					iDeltaT = DateDiff(DateInterval.Second, CDate(lItmX.SubItems(1).Text), dtStartTime)
					If iDeltaT < 60 Then
						lblWarn.Text = "You are attempting to regenerate this directory" + _
						vbCrLf + "too soon after the previous update." + _
						vbCrLf + "The application will pause for " + _
						CStr(60 - iDeltaT) + " seconds"
						pbSleep.Maximum = 60 - iDeltaT
						pbSleep.Value = 0
						fraWarn.Visible = True
						Me.Refresh()
						For x = 0 To 60 - iDeltaT - 1
							Sleep(1000)
							' Perform the increment on the ProgressBar.
							pbSleep.PerformStep()
						Next x

						fraWarn.Visible = False
						Me.Refresh()
						dtStartTime = Now
					End If

hianyzoli, on Jan 21 2008, 21:34, said:

Detalii despre timer:
http://msdn2.microso...y/3tszykws.aspx

(How to: Run Procedures at Set Intervals with the Windows Forms Timer Component)

Mersi de raspuns dar e too complicat for me . Daca ar putea cineva sa imi arate un exemplu simplu utilizand functia sleep sau delay sau stiu eu ce mai exista ca sa imi faca urmatorul lucru:
dau clic pe un buton de comanda si intr-o casuta de texte dupa x secunde (sau milisecunde) sa imi apara un text.
Am gasit pe internet ceva coduri in care era inclus un fisier "kernel32" dar cand rulam programul imi dadea eroare. Pls help me

hianyzoli, on Jan 30 2008, 02:46, said:

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 1 seconds", 4)) = vbYes Then
	PauseTime = 1   ' Set duration.
	Start = Timer   ' Set start time.
	Do While Timer < Start + PauseTime
		DoEvents	' Yield to other processes.
	Loop
	Finish = Timer  ' Set end time.
	TotalTime = Finish - Start  ' Calculate total time.
	MsgBox "Paused for " & TotalTime & " seconds"
Else
	End
End If

Poate te ajuta...