' test example one
Sub EditOne_FocusChanged(HasFocus As Boolean)
If HasFocus = True Then
EditOne.SelectAll
End If
End Sub
' *********************************************
' test example two
Sub EditOne_FocusChanged(HasFocus As Boolean)
If HasFocus = True Then
EditOne_Click
End If
End Sub
Sub EditOne_Click 'if in focus
EditOne.SelectAll
End Sub
' *********************************************
' test example three
Sub EditOne_FocusChanged(HasFocus As Boolean)
If HasFocus = True Then
EditOne_Click
End If
End Sub
Sub EditOne_Click 'if in focus
CallSubDelayed(Me, "EditOne_SelectText")
End Sub
Sub EditOne_SelectText
EditOne.SelectAll
End Sub