Private Sub Form_Paint()

Dim h As Integer
Dim st As String
h = Hour(Time)

Select Case h
Case 0 To 4
st = "Доброй ночи !"
Case 5 To 12
st = "Доброе утро !"
Case 13 To 16
st = "Добрый день !"
Case 17 To 23
st = "Добрый вечер !"
End Select

Font.Name = "Times New Roman"
Font.Size = 28
ForeColor = vbYellow

CurrentX = ScaleWidth / 2 - TextWidth(st) / 2
CurrentY = ScaleHeight / 2 - TextHeight(st)
Print st

Font.Name = "Tahoma"
Font.Size = 12
ForeColor = vbGreen

st = Format(Now, "Сегодня d  mmmm, dddd")
CurrentX = ScaleWidth / 2 - TextWidth(st) / 2
Print st
End Sub