End Try
End Sub
Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'显示是否配置 以及配置结果
Me.tb_myConfig.Text = reanConfig(Application.ExecutablePath)
If SeekPostion(Application.ExecutablePath) = 0 Then
Me.l_res.Text = "该程序没有被配置过!"
Else