طلب مساعدة

أخواني الكرام السلام عليك اريد مساعدة لدمج الكودين بالطريقة الصحيحة حاولة عدة مرات لكن يتوقف عن الإشتغال
Private Sub UserForm_Activate()
wb1.Navigate "E:\statistique\image\Web.gif"
Web1.Navigate "E:\statistique\image\image2.gif"
Web3.Navigate "E:\statistique\image\image (3).gif"
DoEvents
wb1.Document.Body.Scroll = "no"
wb1.Document.Body.Style.Border = "none"
wb1.Document.bgcolor = "&H00FFFFFF&"
Me.Web1.Document.Body.Scroll = "No"
Web1.Document.Body.Style.Border = "none"

Web1.Document.bgcolor = "&H00FFFFFF&"
Me.Web3.Document.Body.Scroll = "No"
Web3.Document.Body.Style.Border = "none"
Web3.Document.bgcolor = "&H00FFFFFF&"
Label6.Caption = Format(Date, "dd")
Label7.Caption = Format(Date, "mmmm")
Label8.Caption = Format(Date, "yyyy")
VBA.Calendar = vbCalHijri
Label9.Caption = Format(Date, "dd")
Label10.Caption = Format(Date, "mmmm")
Label11.Caption = Format(Date, "yyyy")
Do
Label12.Caption = Time
DoEvents
Loop
End Sub

اريد ان أضيف هاذا الكود وجزاكم الله 
Private Sub UserForm_Activate()
For i = 1 To 10000
DoEvents
L01.ForeColor = QBColor(Rnd * 15)
Call Sleep(200)
DoEvents
L2.ForeColor = QBColor(Rnd * 15)
Call Sleep(200)
Next i
End Sub

عزيزى ارسل ملف اكسل لنعرف الخطأ