[Ahmed_Mansoor]

أهلا أخي الكريم , إستخدم هذه الطريقة إن شاء الله تضبط معك :

كود :

Private Sub Command1_Click()
On Error Resume Next
If label6 = "6" Then Text1 = "1"

FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
If Err.Number <> 0 Then Err.Clear: GoTo tamer1
Exit Sub

tamer1:
Text1 = "1"

FileCopy "d:\hhh.jpg", "d:\bbb.jpg"
If Err.Number <> 0 Then Err.Clear: GoTo tamer2
Exit Sub

tamer2:
Text2 = "2"

End Sub