Private Sub Command10_Click() Form2.Show , Me '在父窗体上显示一个子窗体 Dim l As Integer For l = 1 To 10000 DoEvents Form2.Text1 = l '父窗体继续处理 Next '处理完毕关闭form2 Unload Form2 End Sub
7,785
社区成员
197,585
社区内容
加载中
试试用AI创作助手写篇文章吧