رسالة خطأ في كود التوقيت في اليوزرفورم

[reda23dz]

السلام عليكم ورحمة الله وبركاته

هذه الرسالة تأتيني عند النقر فوق الزر خروج 

Option Explicit
Option Private Module
Public OK As Boolean
Public idColor As Byte
Sub DigitalClock()
On Error Resume Next
ThisWorkbook.Sheets(1).Shapes("Bouton 1").Visible = False
Application.ScreenUpdating = True
Load UserForm1
UserForm1.Show
ThisWorkbook.Sheets(1).Shapes("Bouton 1").Visible = True
End Sub
Sub Show_Time()
Static JK As Integer
Dim i As Byte, iTime As String, Nb As String, idx As String * 1
idx = Mid("RVB", idColor, 1): iTime = Format(Now, "hh:mm:ss")
For i = 1 To 8
Nb = Mid(iTime, i, 1)
If i Mod 3 = 0 Then
UserForm1.Controls("Clk" & i).Picture = UserForm1.Controls(idx & "P" & Abs(JK)).Picture
Else
If i = 1 And Nb = "0" Then Nb = "10"
UserForm1.Controls("Clk" & i).Picture = UserForm1.Controls(idx & "D" & Nb).Picture
End If
Next i
JK = Not JK
If OK Then
Application.OnTime Now + TimeValue("00:00:01"), ThisWorkbook.Name & "!Show_Time", , True
Else
Unload UserForm1

End If
End Sub