[بدري]

الحل ان تقرا الخليه ثم تنظر الى نهايه اسم الملف
اذا وجد في نهايه اسم الملف pdf. يقوم باظهار اداه AxAcroPDF1 مع فتحها
والا يخفي اداه AxAcroPDF1

يعني تقرا مثل
Dim a = DataGridView1.CurrentRow.Cells(22).Value.ToString.Trim
 فاذا كانت نهايه الاسم pdf. 
If a.EndsWith(".pdf") Then
...
Else
...
End If