リスト２：テキストボックスの値によって、ラベルのメッセージと文字の色（前景色）を切り替える Private Sub txtDate_LostFocus() 　If Len(txtDate.Text) = 0 Then 　　　Beep 　　　lblErrMsg.Caption = "処理日付を入力してください。" 　　　lblErrMsg.ForeColor = &HFF 　　　' 赤 lblErrMsg.Visible = True 　ElseIf IsDate(txtDate.Text) = 0 Then 　　　Beep 　　　lblErrMsg.Caption = "日付は年/月/日形式としてください。" 　　　lblErrMsg.ForeColor = &HFF0000 　　　' 青 lblErrMsg.Visible = True 　Else 　　　lblErrMsg.Caption = "エラーなし" 　　　lblErrMsg.Visible = False 　End If End Sub 本文へ戻る