Gunakan API bawaan windows aja, contohnya seperti ini: Option Explicit Private Declare Function GetDesktopWindow Lib "user32" () As Long 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
cmdDialog1.Filter = "Excel (*.xls) | *.xls" cmdDialog1.InitDir = "c:\" cmdDialog1.ShowOpen If cmdDialog1.FileName <> "" Then Dim hWndDesk As Long hWndDesk = GetDesktopWindow() ShellExecute hWndDesk, "OPEN", cmdDialog1.FileName, &O0, &O0, 0 End If Salam, Agus Pradikta
