Option Explicit
 
' Benötigte API-Deklarationen
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) _
  As Long
 
Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 100
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  ' Timer ausschalten
  Timer1.Enabled = False
End Sub
 
Private Sub Text1_GotFocus()
  ' Timer starten
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  ' Prüfen, ob Fenster noch das aktive Fenster ist
  If GetForegroundWindow() <> Me.hwnd Then
    SetForegroundWindow Me.hwnd
    Text1.SetFocus
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de