全般
１．現在フォーカスのあるコントロールを知る
１．現在フォーカスがあるコントロールの名前を表示する
MsgBox ActiveControl.Name
２．現在フォーカスがあるコントロールの文字列を表示する。
Select Case TypeName(ActiveControl)
Case "TextBox"MsgBox ActiveControl.Text
Case "Label", "CommandButton"
MsgBox ActiveControl.Caption
End Select
メモ：この例はTextBox, Label, CommandButton以外には対応していない。