在测试项目时提醒遇到

Question

我正在关注此LINK以使用vb.net查看MS Word。我不知道导致这种情况的原因。每次我关闭窗户时都会提示。有谁知道这个？。

我这个错误

If Dialog1.ShowDialog() Then
 If Dialog1.GetChooseType() = 1 Then
    AxEDOffice1.CreateNew("Word.Application")
 ElseIf Dialog1.GetChooseType() = 2 Then
    AxEDOffice1.CreateNew("Excel.Application")
 ElseIf Dialog1.GetChooseType() = 3 Then
    AxEDOffice1.CreateNew("PowerPoint.Application")
 ElseIf Dialog1.GetChooseType() = 4 Then
     AxEDOffice1.CreateNew("Visio.Application")
 ElseIf Dialog1.GetChooseType() = 5 Then
    AxEDOffice1.CreateNew("MSProject.Application")
End If

结束如果

他没有发布如何做到这一点的步骤。