فتح ملف pdf بواسطة زر داخل الفورم

[أبو چيداء]

اريد كود لفتح ملف PDF داخل الفورم واسم الملف هو نتيجة textbox1

[أبو چيداء]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWNORMAL As Long = 1
Sub CommandButton4_Click()
Dim strPath As String
strPath = "D:\" & "\" & TextBox1.Value & ".pdf"
If ShellExecute(0&, "Open", strPath, 0&, 0&, SW_SHOWNORMAL) < 33 Then
MsgBox "Couldn't open PDF file.", vbInformation
End If
End Sub