主题：分享，定义全局系统热键。

'热键处理代码==============================================================================

Public Sub BaseMainForm_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)

Dim eSender As Windows.Forms.Form = sender

Dim ee As object = e

If ee.KeyCode = keys.F2 AndAlso ee.Control AndAlso ee.Shift Then

    Dim f As WinForm.Form = Forms("窗口1")

    If f.Opened = False Then

        f.Open

    End If

End If

End Sub

AddHandler BaseMainForm.KeyDown, AddressOf BaseMainForm_KeyDown