Public Sub CizgiLe(Kutu As String, cizgi As String, cizgiboyu As Integer, sayi As Integer)
 Dim sns
 sns = Array(0, 0.104528, 0.207912, 0.309017, 0.406737, 0.5, 0.587785, 0.669131, 0.743145, 0.809017, 0.866025, 0.913545, 0.951057, 0.978148, 0.994522, 1)
 Dim css
 css = Array(1, 0.994522, 0.978148, 0.951057, 0.913545, 0.866025, 0.809017, 0.743145, 0.669131, 0.587785, 0.5, 0.406737, 0.309017, 0.207912, 0.104528, 0)
 
 If sayi <= 15 Then
 sayi = sayi
 Me(cizgi).LineSlant = True
 Me(cizgi).Width = cizgiboyu * sns(sayi)
 Me(cizgi).Height = cizgiboyu * css(sayi)
 Me(cizgi).Left = Me(Kutu).Left + (Me(Kutu).Width / 2)
 Me(cizgi).Top = Me(Kutu).Top + (Me(Kutu).Height / 2) - Me(cizgi).Height
 ElseIf sayi <= 30 Then
 sayi = sayi - 15
 Me(cizgi).LineSlant = False
 Me(cizgi).Width = cizgiboyu * css(sayi)
 Me(cizgi).Height = cizgiboyu * sns(sayi)
 Me(cizgi).Left = Me(Kutu).Left + (Me(Kutu).Width / 2)
 Me(cizgi).Top = Me(Kutu).Top + (Me(Kutu).Height / 2)
 ElseIf sayi <= 45 Then
 sayi = sayi - 30
 Me(cizgi).LineSlant = True
 Me(cizgi).Width = cizgiboyu * sns(sayi)
 Me(cizgi).Height = cizgiboyu * css(sayi)
 Me(cizgi).Left = Me(Kutu).Left + (Me(Kutu).Width / 2) - Me(cizgi).Width
 Me(cizgi).Top = Me(Kutu).Top + (Me(Kutu).Height / 2)
 ElseIf sayi <= 60 Then
 sayi = sayi - 45
 Me(cizgi).LineSlant = False
 Me(cizgi).Width = cizgiboyu * css(sayi)
 Me(cizgi).Height = cizgiboyu * sns(sayi)
 Me(cizgi).Left = Me(Kutu).Left + (Me(Kutu).Width / 2) - Me(cizgi).Width
 Me(cizgi).Top = Me(Kutu).Top + (Me(Kutu).Height / 2) - Me(cizgi).Height
 End If

End Sub

Private Sub Form_Load()
Çizgi1.BorderColor = vbRed
Çizgi2.BorderColor = vbBlue
Çizgi3.BorderColor = vbBlack
End Sub

Private Sub Form_Timer()
Etiket4.Caption = Format(Now(), "hh:mm:ss")
Call CizgiLe("Resim0", "Çizgi1", Resim0.Width * 0.3, CInt(Format(Now(), "ss")))
Call CizgiLe("Resim0", "Çizgi2", Resim0.Width * 0.26, CInt(Format(Now(), "nn")))
Call CizgiLe("Resim0", "Çizgi3", Resim0.Width * 0.2, (IIf(CInt(Format(Now(), "hh")) > 11, CInt(Format(Now(), "hh")) - 12, CInt(Format(Now(), "hh"))) * 5) + Fix(CInt(Format(Now(), "nn") / 10)))
End Sub