Universal Accounting Manager - Shortcuts.vb

Shortcuts.vb

1. Public Class Shortcuts
2.     Private Shared PanelInstance As Shortcuts
3.     Public Shared Function GetInstance() As Shortcuts
4.         If (PanelInstance Is Nothing) Then
5.             PanelInstance = New Shortcuts
6.         End If
7.         Return PanelInstance
8.     End Function
9.     Private Sub Shortcuts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
10.         AddHandler AccountingPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
11.         AddHandler AccountingPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
12.         AddHandler AccountingPIC.MouseDown, AddressOf StartUp.PicMouseDown
13.         AddHandler AccountingPIC.MouseUp, AddressOf StartUp.PicMouseUp
14.         AddHandler SettingPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
15.         AddHandler SettingPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
16.         AddHandler SettingPIC.MouseDown, AddressOf StartUp.PicMouseDown
17.         AddHandler SettingPIC.MouseUp, AddressOf StartUp.PicMouseUp
18.         AddHandler ImportPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
19.         AddHandler ImportPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
20.         AddHandler ImportPIC.MouseDown, AddressOf StartUp.PicMouseDown
21.         AddHandler ImportPIC.MouseUp, AddressOf StartUp.PicMouseUp
22.         AddHandler ExportPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
23.         AddHandler ExportPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
24.         AddHandler ExportPIC.MouseDown, AddressOf StartUp.PicMouseDown