Vb.net ShowDialog时在加载事件期间显示应用程序范围内的沙漏光标

我有以下代码：

Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click

    Dim f As New frmStyle
    f.ShowDialog()

End Sub

frmStyle在其加载事件期间执行许多操作，因此不会立即显示。相反，它需要大约1秒的时间来显示

因此，我希望在窗体的加载事件期间显示沙漏光标

在VB6中，这非常简单。我可以使用“Screen.Cursor=vbHourglass”。 然后，您可以将光标设置回所需的默认值，例如在Form_Load事件结束时

现在如何在VB.NET中实现这一点

我想在应用程序范围内显示游标，而不是仅针对单个控件。 还有（是什么使我的问题独一无二，并且在另一个问题中至今没有得到回答），我需要重置它，但它应该在Form_Load的末尾重置（这不是初始化元素。相反，按钮是“initializing”元素，但我无法在按钮单击结束时将光标设置为默认值，因为ShowDialog是以模式显示的。这意味着，只有在再次关闭表单时，才会将光标更改回默认值）

---

谢谢大家!

Cursor=Cursors.WaitCursor

@RezaAghaei这不是问题所在。我的问题是关于别的。我已经相应地编辑了我的问题。问题的标题和第一部分仍然告诉您正在查找

Cursor=Cursors.WaitCursor

。无论如何，我重新开始了这个问题，因为你认为结束原因（重复）是无效的，并且在问题的第二部分添加了更多的描述并问了一个新问题。如果问题的主要部分是第二部分，请编辑标题，重新表述问题的主体，并用最少的代码对其进行增强，以重现问题。非常有用的答案应该会对您有所帮助

Cursor=Cursors.WaitCursor

@RezaAghaei这不是问题所在。我的问题是关于别的。我已经相应地编辑了我的问题。问题的标题和第一部分仍然告诉您正在查找

Cursor=Cursors.WaitCursor

。无论如何，我重新开始了这个问题，因为你认为结束原因（重复）是无效的，并且在问题的第二部分添加了更多的描述并问了一个新问题。如果问题的主要部分是第二部分，请编辑标题，重新表述问题的主体，并用最少的代码对其进行增强，以重现问题。非常有用的答案应该会对您有所帮助。