Private Sub Command1_Click()
Dim prid As Variant
prid = Shell("C:\Program Files\WinRAR\WinRAR.EXE {rar a -r -s -sfx -rr -ag+YYYMMDDHHMM backup D:temp\*.* } ",  1 ) 'vbHide = 0
End Sub

Private Declare Function FindExecutable Lib "shell32.dll" _ 
 Alias "FindExecutableA" (ByVal lpFile As String, _ 
                               ByVal lpDirectory As String, ByVal lpResult As String) As Long


Private Sub Form_Load()
Dim retval As Long

retval = ExecCmd("C:\Program Files\WinRAR\WinRAR.EXE a -r -s -sfx -rr -ilog -ag+YYYYMMDD D:\20080328\backup D:\Temp\*.* ") 
 'vbHide = 0

If retval <>  0  Then
    Call TerminateProcess(FindExecutable("rar.log", "C:\Program Files\WinRAR", "C:\Program Files\WinRAR\WinRAR.EXE"), retval)
    'Call TerminateProcess(proc.hThread)

End If

End Sub