Private Sub Command2_Click()
    'commande dos, fenêtre cachée, synchrone
    ShellAndWait "cmd /c dir c: /P", WshHide, True
    'commande dos, fenêtre cachée, synchrone
    ShellAndWaitNoRef "cmd /c dir c: /S ", 0, True
End Sub

Private Sub ShellAndWait(ByVal PathName As String, _
                            Optional ByVal WindowStyle As WshWindowStyle = WshMinimizedFocus, _
                            Optional ByVal WaitOnReturn As Boolean = False)
'nécessite une référence projet à la bibliothèque
'Windows Script Host Object Model (wshom.ocx)
Dim wshTemp As IWshRuntimeLibrary.IWshShell
    'instancie l'objet WShell
    Set wshTemp = New IWshShell_Class
    'lance la commande
    wshTemp.Run PathName, WindowStyle, WaitOnReturn
    'affiche la boite de dialogue de fin
    MsgBox "Fin"
    'libère l'objet
    Set wshTemp = Nothing
End Sub


Private Sub ShellAndWaitNoRef(ByVal PathName As String, _
                            Optional ByVal WindowStyle As Integer = 2, _
                            Optional ByVal WaitOnReturn As Boolean = False)
'ne nécessite pas de référence projet à la bibliothèque
'Windows Script Host Object Model (wshom.ocx)
Dim wshTemp As Variant
    'instancie l'objet WShell
    Set wshTemp = CreateObject("WScript.Shell")
    'lance la commande
    wshTemp.Run PathName, WindowStyle, WaitOnReturn
    'affiche la boite de dialogue de fin
    MsgBox "Fin"
    'libère l'objet
    Set wshTemp = Nothing
End Sub

'Appel de la procédure
ExecAndWait

Sub ExecAndWait
Dim wshShell
 'l'objet WScript.Shell est aussi accessible, en VB6,
 ' via la référence IWshRunTimeLibrary.IWshShell (wshom.ocx)
 Set wshShell = CreateObject("WScript.Shell")
 'Run( bstrCommand As String
 ' , [pvarWindowsStyle]
 ' , [pvarWaitOnReturn]) As Long
 wshShell.Run "cmd /c dir c: /s", 0, True
 MsgBox "Fin"
 Set wshShell = Nothing
End Sub

'Documentation
'WshWindowStyle
' WshHide = 0
' WshNormalFocus = 1
' WshMinimizedFocus = 2
' WshMaximizedFocus = 3
' WshNormalNoFocus = 4
' WshMinimizedNoFocus = 6

function ExecAndWait(){
var wshShell = new ActiveXObject("WScript.Shell");
wshShell.Run ("java.exe fichier class", 0, true);
}
ExecAndWait()

    Sub Main()
        Dim p As New Process
        ' Change date
        p.StartInfo.FileName = "cmd.exe"
        p.StartInfo.Arguments = " /C date 01/01/2011 "
        p.StartInfo.CreateNoWindow = False
        p.Start()
        p.WaitForExit()
        p.Close()
    End Sub