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