如何让本程序在运行的过程中能重新再运行自身呢？见例子：

Private Sub Combo1_Click() 
    ......
    If i = 0 Then
        DialogOptions.Show 1 
        MsgBox "再次运行本软件。", vbOKOnly, "提示"
        ......(如何让本程序在这里重新运行呢？)
     End If
 End Sub
--------------------编程问答-------------------- Private Sub Combo1_Click()
    Call AAA
End Sub

Sub AAA()
        ......
        If i = 0 Then
                DialogOptions.Show 1
                MsgBox "再次运行本软件。 ", vbOKOnly, "提示 "
                Call AAA  (本程序重新运行)
          End If
End Sub --------------------编程问答-------------------- shell app.path & "\" & app.exename & ".exe"

补充：VB ,  基础类