Private nButton As Integer
 
Private Text1_GotFocus()
  nButton = 0
End Sub
 
Private Sub Text1_LostFocus()
  If nButton = 1 Then
    MsgBox "Button1 wurde gedrückt!"
  Elsef nButton = 2 Then
    MsgBox "Button2 wurde gedrückt!"
  End If
End Sub
 
Private Sub Command1_Click()
  nButton = 1
End Sub
 
Private Sub Command2_Click()
  nButton = 2
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de