请教高手怎么实现inputbox的挂起效果

Question

本人在工程中新建一个窗体ForMe
现在有一个名为ForRuning的窗体,起代码结构如下:
  
private Sub Command1_click
...
代码段A
inputbox "请输入一个数" '执行到这里的时候要等用户输入数据并确认后才可以执行 代码段B
代码段B
...
...
end sub以下就是希望要达到的效果:
private Sub Command1_click
...
代码段A
ForMe.show '要等到ForMe被用户关闭了,代码段B才可以继续执行
代码段B
...
...
end sub请指教,如果有相似的代码例子,请发送到[email protected],thanx

Answer 1

模式与无模式的对话框 对话框不是模式就是无模式的。模式对话框，在可以继续操作应用程序的其他部分之前，必须被关闭（隐藏或卸载）。例如，如果一个对话框，在可以切换到其它窗体或对话框之前要求先单击“确定”或“取消”，则它就是模式的。Visual Basic 中的“关于”对话框是模式的。显示重要消息的对话框总应当是模式的－那就是说，在继续做下去之前，总是要求用户应当先关上对话框或者对它的消息作出响应。无模式的对话框允许在对话框与其他窗体之间转移焦点而不用关闭对话框。当对话框正在显示时，可以在当前应用程序的其他地方继续工作。无模式对话框很少使用。Visual Basic 中“编辑”菜单中的“查找”对话框就是一个无模式对话框的实例。无模式对话框用于显示频繁使用的命令与信息。要将窗体作为模式对话框显示，请使用 Show 方法，其 style 参数值为 vbModal（一个值为 1 的常数）。 
例如：
'将 frmAbout 作为模式对话框显示。
frmAbout.Show vbModal要将窗体作为无模式对话框显示，请使用不带 style 参数的 Show方法。 
例如：
'将 frmAbout 作为无模式对话框显示。
frmAbout.Show 注意 如果窗体显示为模式对话框，则只有当对话框关闭之后，在 Show 方法后的代码才能执行。然而，当窗体被显示为无模式对话框时，在该窗体显示出来以后，Show 方法后面的代码紧接着就会执行。Show 方法另有一个可选参数，owner，可用来指定窗体的父子关系。可将某个窗体名传给这个参数，使得这个窗体成为新窗体的拥有者。要显示一个窗体，作为另一个窗体的子窗体，请这里 Show 方法有两个参数：style 和 owner。 
例如：
' 将 frmAbout 显示为 frmMain 的无模式子窗体。
frmAbout.Show vbModeless, frmMain在 Show 方法中使用 owner 参数，确保对话框在它的父窗体最小化时它也最小化，或者在其父窗体关闭时它也卸载。

Answer 2

Form2.Show 1, Me 
 就可以