下記プログラムコードに関する補足・注意事項 動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option :[Option Explicit] 参照設定:追加なし 使用 API:CreateCaret / ShowCaret / DestroyCaret / HideCaret その他 : : Option Explicit Private Sub Text1_GotFocus(Index As Integer) Text1(Index).BackColor = QBColor(14) '黄色 Text1(Index).ForeColor = QBColor(12) '赤 End Sub Private Sub Text1_LostFocus(Index As Integer) Text1(Index).BackColor =
![フォーカスのあるテキストボックスを視覚化する(VB6.0) - VBレスキュー(花ちゃん)](https://cdn-ak-scissors.b.st-hatena.com/image/square/9a4758a8e6b8879b8f4abf5e822087d8eb492877/height=288;version=1;width=512/http%3A%2F%2Fwww.hanatyan.sakura.ne.jp%2Fvb6_img%2Ftextbox03_01.png)