[RESOLVED] label caption

[Man!]

is there any way if the caption do not change for specific time then a command is called.

[RhinoBull]

Would something like this work for you?
To run this sample you will need Label control, Command Button and Timer.

Option Explicit

Dim myCounter As Integer
Dim myInterval As Long
Dim myCaption As String

Private Sub Form_Load()
    Label1.Caption = "Hello World!"
    myInterval = 5 '5 seconds
    myCaption = Label1.Caption
    Timer1.Interval = 1000 '1 second
    Timer1.Enabled = True
End Sub

Private Sub Command1_Click()
    Label1.Caption = IIf(Label1.Caption = "Hello World!", "Goodbye World!", "Hello World!")
    myCaption = Label1.Caption
    myCounter = 0
End Sub

Private Sub Timer1_Timer()
    myCounter = myCounter + 1
    If myCounter = myInterval Then
        If Label1.Caption = myCaption Then
            Test
        End If
        myCounter = 0
    End If
End Sub

Public Sub Test()
    MsgBox "Hey, change your label's caption!"
End Sub