下記プログラムコードに関する補足・注意事項 動作確認: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 =