Bound Object Frame Control, Chart Control, Check Box Control, Combo Box Control, Command Button Control, Label Control, Line Control, List Box Control, Option Button Control, Option Group Control, Page Break Control, Rectangle Control, Text Box Control, Toggle Button Control, Unbound Object Frame Control.
You can use the InSelection property to determine or specify whether a control on a form in Design view is selected.
The InSelection property uses the following settings.
This property is available only in a macro or Visual Basic.
When a control is selected, its sizing handles are visible and it can be resized by the user. More than one control can be selected at a time.
Control Object.
The following example uses the InSelection property to determine whether the strControlName control on a form is selected.
Function IsControlSelected(frm As Form, strControlName As String) _
As Integer
Dim intI As Integer, ctl As Control
If frm.CurrentView <> 0 Then
' Form is not in Design view.
Exit Function
Else
For intI = 0 To frm.Count-1
Set ctl = frm(intI)
If ctl.InSelection = True Then
' Is desired control selected?
If UCase(ctl.Name) = UCase(strControlName) Then
IsControlSelected = True
End If
Else
IsControlSelected = False
End If
Next intI
End IfFunction