vb初级问题

Question

Private Sub Command2_Click()
  Dim intinqury As Integer
Dim fso As New FileSystemObject
intinqury = MsgBox("请输入您要创建的零件名，以后过程都以此零件名为准！", 4, "提示")
If intinqury = 6 Then
   str1 = InputBox("请输入完整的零件名", "提示")
   If Len(Trim(str1)) <> 0 Then
      If Dir("d:\" & str1, vbDirectory) <> "" Then
        MsgBox "存在同名文件夹，请重新输入！"
      Else
        fso.CreateFolder ("d:\" & str1)
        frmsheji.Show-------------------------------------问题所在  点了没反应 直接回到设计状态 好奇怪 原来还好好的
      End If
   Else
      MsgBox "零件名不能为空", 48, "注意"
      frmmain.Show
   End If
End If
End Sub

Answer 1

照理说这是个简单的问题 可是真的是不知道怎么回事 无语的