[RESOLVED] How do you on a command click shell and run a .vbs file?

[newprogram]

I tried

Dim ReturnValue
ReturnValue = Shell("C:\Documents and Settings\Administrator\Desktop\dial2.VBS", 1) ' Run Calculator.
AppActivate ReturnValue

and this to

Shell("C:\Documents and Settings\Administrator\Desktop\dial2.VBS")

and this

Shell "C:\Documents and Settings\Administrator\Desktop\dial2.VBS"

[zynder]

Use ShellExecute.

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
Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
    ShellExecute Me.hwnd, vbNullString, "C:\Documents and Settings\Administrator\Desktop\dial2.VBS", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

[newprogram]

Thank you!!! that works great!!!

Use ShellExecute.

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
Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
    ShellExecute Me.hwnd, vbNullString, "C:\Documents and Settings\Administrator\Desktop\dial2.VBS", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

[zynder]

No problem buddy.