ユーザーがクリックするまでフォーカスをつけない方法（Access VBA）

こんにちは。
AccessVBAですが、ユーザーフォーム上で、
ユーザーが、コントロールをクリックするまで、
フォーカスを設定しない方法は、あるでしょうか。
テキストにフォーカスされたときの黒反転が、
綺麗でないので、フォーカスさせたくありません。

フォームを開いたときに、強引にボタンにフォーカス
する、方法もありますが、ボタンのないフォーム
ですと、この方法が使えません。

何か、いい方法がありましたら、教えてください。
お願いします。

No.1 ベストアンサー 回答者： papimone 回答日時： 2007/05/22 10:39

こんにちは。

フォーム上にテキストボックスを作成し見えないよう(背景色をフォームの背景色にし境界線を透明にし、最小にした状態にします。）にし目立たない所に置きます。
フォームが開いたときにそのテキストボックスにフォーカスがいくようにしたらいかがでしょうか。

No.3 回答者： isomaru 回答日時： 2007/05/22 11:34

はじめまして

テキストが反転するのはセレクトされている状態なので、それがいやなら
TextのGotFocusイベントで、textのSelLengthプロパティに０（選択長さを０）にします。
なおポインタを末尾にしたいときは、SelStartに文字列の長さを指定します。
[Ex] Text1.SelLength = 0
Text1.SelStart = Len(Text1.text)

No.2 回答者： fly_moon 回答日時： 2007/05/22 10:53

黒反転が嫌なだけなら、フォーカスを当てないんじゃなくて、テキストボックスの一番後にカーソルを持ってくるだけじゃだめですか？そしてクリック時に黒反転になるようにするというのはどうでしょう。

Private Sub テキスト0_Enter()
Me.テキスト0.SelStart = Me.テキスト0.SelLength
End Sub

Private Sub テキスト0_Click()
Me.テキスト0.SelStart = 0
Me.テキスト0.SelLength = Len(Me.テキスト0.Value)
End Sub

いかがでしょう？