[مصمم هاوي]

بارك الله فيكم تم تعديل الكود بنجــاح

كود :

Private Sub Command1_Click()
If TextName.Text = "" Then
MsgBox "يجب اختيار اســـم الملـف أولاً", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيــه"

Else

Kill App.Path & "\Picture\" & (TextName)
TextName.Text = ""
End If

End Sub