|
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, ByVal IpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_NORMAL = 1 Private Sub Command1_Click() ShellExecute Me.hWnd, "Open", "G:\video\Wolfman.2010.iTALiAN.iNTERNAL.LD.TS.XviD-SiLENT.avi", vbNullString, vbNullString, SW_NORMAL End Sub |