Пока болел ковидом в прошлом году осенью (если честно чуть не умер от ковида), то сделал часы на Visual Basic 4.0 для Windows 3.11, вот сам код:

Private Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, 
ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

'Отображает текущую дату и время
Private Sub Refresh_Time()
  Me.Label1.Caption = Format(Now, "HH:mm:ss") 'Отобразить текущее время
  Me.Caption = "Часы " & Format(Now, "dd.mm.yyyy") 'Отобразить текущую дату
End Sub

Private Sub Form_Load()
  SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 'Поверх всех окон
  Refresh_Time ' Запуск первый раз, чтобы отобразить текущую дату и текущее время
  Me.Timer1.Interval = 1000 'Таймер срабатывает 1 раз в 1 секунду
  Me.Timer1.Enabled = True 'Таймер активирован
End Sub

Private Sub Timer1_Timer()
  Refresh_Time 'чтобы отобразить текущую дату и текущее время
End Sub

Так выглядет форма сделаная в Visual Basic 4.0:

Результат работы таких часов в Windows 3.1:

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида