08-02-13, 06:55 AM
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (Process.GetProcessesByName("Label1").Length = 0) Then
If (Me.Label1.Text = "Wait Label1....") Then
Me.Label1.Text = "wait Label1"
ElseIf (Me.Label1.Text = "Label1Found!!!") Then
Me.Label1.Text = "Found Label1"
Else
Me.Label1.Text = (Me.Label1.Text & ".")
End If
Me.Label1.ForeColor = Color.Red
Else
Me.Label1.Text = "Label1 Found!!!"
Me.Label1.ForeColor = Color.Green
End If
End Sub