Option Explicit
Dim oControl As Object

Private Sub Form_Load()
  Timer1.Interval = 100
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  If Not Me.ActiveControl Is cmdApply Then
    Set oControl = Me.ActiveControl
  End If
End Sub

Private Sub cmdApply_Click()
  ' Übernehmen
  If Not oControl Is Nothing Then
    oControl.SetFocus
  End If
 
  ' ...
 
  cmdApply.Enabled = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de