واسه استفاده از این کد یک text1 و یک commondialog1 روی فرم درست کنید و ازش استفاده کنین.البته خیلی سادس......تنها آرگومان این تابع هم مسیر فایل مورد نظره که تو text1 وارد میشه.


Public Function Delete(FilePath As String)
Kill FilePath
End Function


Private Sub Command1_Click()
With CommonDialog1
.CancelError = False
.ShowOpen
End With
Text1.Text = CommonDialog1.Filename
End Sub


Private Sub Command2_Click()
Delete Text1.Text
End Sub