Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1

Const MYHOUR As Double = 1 / 24
Const MYMIN As Double = MYHOUR / 60
Const MYSEC As Double = MYMIN / 60
Const PI As Double = 3.14159276
Const RAD As Double = PI / 180

Dim CentreX As Single, CentreY As Single
Dim Radius As Single

Private Sub Form_Load()
    Timer1_Timer
    Me.Show
    Me.DrawWidth = 1
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Paint()
    If Me.WindowState = vbMinimized Then Exit Sub
    
    CentreX = Me.ScaleWidth / 2
    CentreY = Me.ScaleHeight / 2
    
    If Me.ScaleWidth < Me.ScaleHeight Then
        Radius = (Me.ScaleWidth - 30) / 2
    Else
        Radius = (Me.ScaleHeight - 30) / 2
    End If
    
    Me.Cls
    Me.Circle (CentreX, CentreY), Radius
    
    Dim i As Integer
    Dim iRad As Integer
    For i = 0 To 359 Step 6
        If i Mod 5 Then iRad = Radius / 80 Else iRad = Radius / 35
        Me.Circle (CentreX + Sin(i * RAD) * (Radius / 1.1), CentreY + Cos(i * RAD) * (Radius / 1.1)), iRad
    Next i
End Sub

Private Sub Form_Resize()
    Form_Paint
End Sub

Private Sub Timer1_Timer()
    Dim dTime As Double
    Dim X As Single, Y As Single
    Dim Angle As Single

    dTime = Time
    If dTime > 0.5 Then dTime = dTime - 0.5
    
    Angle = ((dTime / MYHOUR) * (PI / 6)) - PI / 2
    X = (Cos(Angle) * (Radius / 1.5)) + CentreX
    Y = (Sin(Angle) * (Radius / 1.5)) + CentreY
    Line1.X1 = CentreX
    Line1.Y1 = CentreY
    Line1.X2 = X
    Line1.Y2 = Y
    
    dTime = (Minute(Time) * MYMIN) + (Second(Time) * MYSEC)
    
    Angle = ((dTime / MYMIN) * (PI / 30)) - PI / 2
    X = (Cos(Angle) * (Radius / 1.2)) + CentreX
    Y = (Sin(Angle) * (Radius / 1.2)) + CentreY
    Line2.X1 = CentreX
    Line2.Y1 = CentreY
    Line2.X2 = X
    Line2.Y2 = Y
    
    dTime = Second(Time) * MYSEC
    
    Angle = ((dTime / MYSEC) * (PI / 30)) - PI / 2
    X = (Cos(Angle) * Radius) + CentreX
    Y = (Sin(Angle) * Radius) + CentreY
    Line3.X1 = CentreX
    Line3.Y1 = CentreY
    Line3.X2 = X
    Line3.Y2 = Y
End Sub