Running .exe's from Vb Code

[Hack]

Option Explicit
 
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_SHOWNORMAL = 1
 
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "c:\hack.exe", vbNullString, "C:\", SW_SHOWNORMAL
End Sub