主题：如何让InputValue置顶

全局代码

Public Sub beforeOpenProject()

Do Until ShowAppWindow("模拟测试", 1) = True
    application.DoEvents
Loop

End Sub

BeforeOpenProject代码

Dim t1 As New System.Threading.Thread(AddressOf beforeOpenProject)
t1.Start()

'Dim Val As Date = Date.Today
'If InputValue(Val, "模拟测试","请输入日期:") Then
'    Output.Show(Val)
'End If