Готовый проект: маленькие часы с датой в углу экрана - VB

Формулировка задачи:

Часы с датой поверх всех окон

Для меня это очень удобная вещь! Просто у меня нетбук с маленьким экраном и у меня на рабочем столе авто. скрывание панели задач, а на часики то поглядывать надо... Вот написал такие часы и радуюсь))). Форма прозрачная и есть кнопка выход.

Private Sub Form_Load()
Call FORM_POSITION(Form1.hWnd, True)
 Me.BackColor = RGB(1, 1, 1)
 Dim Ret As Long
 Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
 Ret = Ret Or WS_EX_LAYERED
 SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
 SetLayeredWindowAttributes Me.hWnd, Val(RGB(1, 1, 1)), 0, LWA_COLORKEY
 With Me
        .Caption = ("Время и дата")
 
        .Timer1.Interval = (1)
 
        .Label1.AutoSize = (True)
        .Label1.BackStyle = (0)
 
        .Label2.AutoSize = (True)
        .Label2.BackStyle = (0)
    End With
 End Sub
 
Private Sub Timer1_Timer()
    Dim sTime As String, sData As String
 
    sTime = Time$
    sData = Date$
 
    Me.Label1.Caption = (sTime)
    Me.Label2.Caption = (sData)
End Sub

Решение задачи: «Готовый проект: маленькие часы с датой в углу экрана»

textual
                            Листинг программы 
                        
                            Dim retval As Integer
retval = MsgBox("Текст", vbQuestion + vbYesNo, "Текст")