Private Sub Form_Load() Timer1.Interval = 500 End SubPrivate Sub Timer1_Timer() Form1.Cls On Error Resume Next Print ActiveControl.Name If ActiveControl Is Command Then Print Command End If If ActiveControl Is Picture Then Print Picture End If End Sub
Timer1.Interval = 500
End SubPrivate Sub Timer1_Timer()
Form1.Cls
On Error Resume Next
Print ActiveControl.Name
If ActiveControl Is Command Then
Print Command
End If
If ActiveControl Is Picture Then
Print Picture
End If
End Sub