Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Timer1_Timer() WindowSPY Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8, Text9 End Sub