VB6 Code - Memperoleh Control Yang Sedang Aktif - Focus

Option Explicit

Private Sub Timer1_Timer()
    Dim cControl As Control
    Set cControl = Me.ActiveControl

    If Not cControl Is Nothing Then
        Caption = cControl.Name
    End If
End Sub