Option Explicit
 
Private isEdit As Boolean
 
Private Sub Command1_Click()
   isEdit = True
End Sub
 
Private Sub Command2_Click()
   isEdit = False
End Sub
 
Private Sub UserControl_ExitFocus()
   If isEdit Then Text1.SetFocus
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control