如何确保在VB6中，任何时候都不会打开多个表单实例？

我正在使用一个从下面使用VB6。现在，为了加载表单，每单击一次按钮，就会创建一个新的表单实例。如何确保在任何时候都不会有多个表单实例打开

  Dim objForm As frmSelectStyle
  Set objForm = New frmSelectStyle

 With objForm
   .aaInitialize SelectStyleDlg:=SelectStyleDlg
   .Show vbModeless
 End With

---

请帮帮我。谢谢。

在@Bill Hileman的帮助下，我就是这样解决这个问题的

With frmSelectStyle
  .aaInitialize SelectStyleDlg:=SelectStyleDlg
  .Show vbModeless
End With

---

这很有效。

Set objForm=New frmSelectStyle

告诉它创建一个新的。您好@catcat，是的。我想知道加载表单对象的另一种方法，而不是使用此方法。你有什么想法吗？

obfform.show

就是你需要做的。将其他行放在您的过程之外。我使用了objForm.show，但它导致了错误-91“对象变量或未设置块变量”。根据您的示例，您应该使用

frmSelectStyle.show