Path/uninstall.exe /s

Sub main()
   Shell "c:\Program Files\TheProga\uninstall.exe /s", vbNormalFocus
   Form1.Timer1.Interval =  500 
   Form1.Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    If IsProgaRun("Uninstall TheProga") = False Then
       Timer1.Enabled = False
        Unload Me
    End If
End Sub
'=================
Public TargetName As String
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowText Lib "user32" Alias _
    "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString _
    As String, ByVal cch As Long) As Long

' Return False to stop the enumeration.
Public Function WindowEnumerator(ByVal app_hwnd As Long, _
    ByVal lParam As Long) As Long
Dim buf As String *  256 
Dim title As String
Dim length As Long

    ' Get the window's title.
    length = GetWindowText(app_hwnd, buf, Len(buf))
    title = Left$(buf, length)

    ' See if the title contains the target.
    If InStr(title, TargetName) >  0  Then
        ' Save the hwnd and end the enumeration.
        TargetHwnd = app_hwnd
        WindowEnumerator = False
    Else
        ' Continue the enumeration.
        WindowEnumerator = True
    End If
End Function

Function IsProgaRun(proga As String) As Boolean
        TargetName = proga
        TargetHwnd =  0 
        ' Examine the window names.
        EnumWindows AddressOf WindowEnumerator,  0 
        ' See if we got an hwnd.
        If TargetHwnd =  0  Then
            IsProgaRun = False
        Else
            IsProgaRun = True
        End If
End Function

TheProga  1 . 0 . 0  UninstallString=C:\Program Files\TheProga\uninstall.exe
TheProga  2 . 0 . 0  UninstallString=C:\Program Files\TheProga\uninstall.exe
TheProga  2 . 1 . 1  UninstallString=C:\TheProga\uninstall.exe