Public Class Form1
 
  Private Declare Auto Function SetForegroundWindow Lib "user32" ( _
    ByVal hwnd As IntPtr) As Integer
 
  Dim WithEvents oTimer As Timer
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    Me.TopMost = True
    oTimer = New Timer
    oTimer.Interval = 50
  End Sub
 
  Private Sub Form1_Deactivate(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Deactivate
 
    oTimer.Start()
  End Sub
 
  Private Sub oTimer_Tick(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles oTimer.Tick
 
    oTimer.Stop()
    SetForegroundWindow(Me.Handle.ToInt32)
    Me.Focus()
  End Sub
 
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de