各位大吓好。我是一个VB新手，也是GHOST系统爱好者，因为需要，做的一个驱动安装选择器，现在有一个问题，
就是如何才可以让 “驱动安装选择器” 在执行完外部程序 “ DRIVET。EXE” 后才退出。

Option Explicit
Dim i As Integer, j As Integer, m As Integer
Dim s As String
Private Sub Form_Load()
i = 0
j = 0
m = 10
End Sub
Private Sub Command1_Click()

End Sub

Private Sub OLE1_Updated(Code As Integer)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
If i <= 60 Then
i = i + 1
ElseIf i = 61 And j < 10 Then
j = j + 1
m = 10 - j
i = 0
Else
i = 0
j = 10
m = 0
End If
s = "程序将在" & Left("00", 2 - Len(m)) & Str(m) & " 秒后自动解压驱动"
倒计时.Caption = s
If j = 10 Then
Dim a
a = Shell("Driver.exe", 1)

Timer1.Enabled = False
Unload Me
End If
End Sub

Private Sub 手动_Click()

End
End Sub

Private Sub 自动_Click()
Dim a
a = Shell("Driver.exe", 1)
Unload Me
End
End Sub