Attribute VB_Name = "PopUpMenu"
Option Explicit

Const MF_ENABLED = &H0&
Const MF_STRING = &H0&
Const MF_GRAYED = &H1&
Const MF_CHECKED = &H8&
Const MF_UNCHECKED = &H0&
Const MF_SEPARATOR = &H800&

Const TPM_CENTERALIGN = &H4
Const TPM_RIGHTALIGN = &H8
Const TPM_BOTTOMALIGN = &H20
Const TPM_VCENTERALIGN = &H10
Const TPM_TOPALIGN = &H0&
Const TPM_LEFTALIGN = &H0&
Const TPM_RETURNCMD = &H100&

Public Declare Function CreatePopupMenu Lib "Coredll" () As Long
Public Declare Function AppendMenu Lib "Coredll" Alias "AppendMenuW" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
Public Declare Function TrackPopupMenuEx Lib "Coredll" (ByVal hMenu As Long, ByVal un As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal hWnd As Long, lpTPMParams As Long) As Long
Public Declare Function DestroyMenu Lib "Coredll" (ByVal hMenu As Long) As Long

Public g_hMenuBS    As Long
Public g_hMenuBSEdit    As Long
Public g_hMenuCL    As Long

Public Sub PopupMenuEnd()
    If (g_hMenuBS <> 0) Then Call DestroyMenu(g_hMenuBS)
    If (g_hMenuBSEdit <> 0) Then Call DestroyMenu(g_hMenuBSEdit)
    If (g_hMenuCL <> 0) Then Call DestroyMenu(g_hMenuCL)
End Sub
Private Sub PopupMenuInit()

    g_hMenuBS = 0
    g_hMenuBSEdit = 0
    g_hMenuCL = 0
    
    g_hMenuBS = CreatePopupMenu()
    'AppendMenu g_hMenuBS, MF_ENABLED Or MF_STRING, 1, "Report"
    'AppendMenu g_hMenuBS, MF_SEPARATOR, 0, ""
    AppendMenu g_hMenuBS, MF_ENABLED Or MF_STRING, 8, "Shop Today"
    AppendMenu g_hMenuBS, MF_ENABLED Or MF_STRING, 9, "Shop on Saturday"
    AppendMenu g_hMenuBS, MF_ENABLED Or MF_STRING, 10, "Shop on Sunday"
    
    g_hMenuBSEdit = CreatePopupMenu()
    AppendMenu g_hMenuBSEdit, MF_ENABLED Or MF_STRING, 2, "Edit"
    AppendMenu g_hMenuBSEdit, MF_ENABLED Or MF_STRING, 3, "Add New"
    AppendMenu g_hMenuBSEdit, MF_ENABLED Or MF_STRING, 4, "Delete"
    
    'g_hMenuCL = CreatePopupMenu()
    'AppendMenu g_hMenuCL, MF_ENABLED Or MF_STRING, 1, "15 min appointment"
    'AppendMenu g_hMenuCL, MF_ENABLED Or MF_STRING, 2, "30 min appointment"
    'AppendMenu g_hMenuCL, MF_ENABLED Or MF_STRING, 3, "60 min appointment"
    'AppendMenu g_hMenuCL, MF_ENABLED Or MF_STRING, 4, "One Day Event"
    'AppendMenu g_hMenuCL, MF_SEPARATOR, 0, ""
    'AppendMenu g_hMenuCL, MF_ENABLED Or MF_STRING, 5, "Show appointments"
    
    Exit Sub
End Sub