07/03/22 11:38:18
>>330
こんな感じでええんちゃうのん？
動かしてないけどなんとなく感覚はわかってもらえるんじゃないかと
Dim NowHour As Integer = Date.Now.Hour
If NowHour >= 8 AndAlso NowHour <= 17 Then
If label1.backcolor <> Color.LightGreen Then
label1.backcolor = Color.LightGreen
End If
Else
If label1.backcolor <> Color.Transparent Then
label1.backcolor = Color.Transparent
End If
End If