Private Sub Text1_LostFocus()
  If Not ActiveControl Is Nothing Then
    If ActiveControl.Name = "Command1" Then
      MsgBox "Command1 hat den Fokus!"
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de