Menu Flotan avec face Id

Private WithEvents LN_MenuF As LN_MenuFlottant
Dim T_Check As Boolean
Private Function MeHwnd() As Long: MeHwnd = FindWindowA(vbNullString, Me.Caption): End Function
Private Sub Position(X As Single, Y As Single)
    Place.X = (Me.Left + X) * PtTw: Place.Y = (Me.Top + Y) * PtTw
End Sub
Private Sub Label4_Click()
    Position Label4.Left, Label4.Top + Label4.Height + 18
    Label4.SpecialEffect = 2
    Set LN_MenuF = New LN_MenuFlottant
    With LN_MenuF
        .Handle = MeHwnd
        .AddLigne 101, "Sauver", T_Check
        .AddLigne 102, "Sauve sous..."
        .AddLigne 103, "Ouvrir"
        .AddLigne 0, "0" ' met un séparateur
        .AddLigne 104, "Importer"
        .AddLigne 105, "Exporter"
        .AddLigne 0, "0" ' met un séparateur
        .AddLigne 106, "Quitter"
        .VoirMenuF True 'affiche le menu
    End With
    Label4.SpecialEffect = 1
End Sub
Private Sub Label5_Click()
    Position Label5.Left, Label5.Top + Label5.Height + 18
    Label5.SpecialEffect = 2
    Set LN_MenuF = New LN_MenuFlottant
    With LN_MenuF
        .Handle = MeHwnd
        .AddLigne 201, "A Propo"
        .AddLigne 202, "Index"
        .VoirMenuF True 'affiche le menu
    End With
    Label5.SpecialEffect = 1
End Sub
Private Sub LN_MenuF_ClicMF(ByVal Index As Long)
    IDX = MemoMenuF(Index).Iindex
    Label3.Caption = MemoMenuF(Index).Itxt
    Select Case IDX
        Case 101
            T_Check = Not T_Check
            MsgBox T_Check
        Case 106
            Unload Me
    End Select
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, _
 ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'    If Button = 1 Then MsgBox "Vous avez effectué un clic Gauche."
    If Button = 2 Then
    Set LN_MenuF = New LN_MenuFlottant
    With LN_MenuF:
        .Handle = MeHwnd
        .AddLigne 101, "Propriétés"
        .AddLigne 0, "0"
        .AddLigne 106, "Quitter"
        .VoirMenuF
    End With
End If
End Sub

Private WithEvents LN_MenuF As LN_MenuFlottant
Dim T_Check As Boolean
Private Function MeHwnd() As Long: MeHwnd = FindWindowA(vbNullString, Me.Caption): End Function
Private Sub Position(X As Single, Y As Single)
    Place.X = (Me.Left + X) * PtTw: Place.Y = (Me.Top + Y) * PtTw
End Sub
Private Sub Label4_Click()
    Position Label4.Left, Label4.Top + Label4.Height + 18
    Label4.SpecialEffect = 2
    Set LN_MenuF = New LN_MenuFlottant
    With LN_MenuF
        .Handle = MeHwnd
        .AddLigne 101, "Sauver", T_Check
        .AddLigne 102, "Sauve sous..."
        .AddLigne 103, "Ouvrir"
        .AddLigne 0, "0" ' met un séparateur
        .AddLigne 104, "Importer"
        .AddLigne 105, "Exporter"
        .AddLigne 0, "0" ' met un séparateur
        .AddLigne 106, "Quitter"
        .VoirMenuF True 'affiche le menu
    End With
    Label4.SpecialEffect = 1
End Sub
Private Sub Label5_Click()
    Position Label5.Left, Label5.Top + Label5.Height + 18
    Label5.SpecialEffect = 2
    Set LN_MenuF = New LN_MenuFlottant
    With LN_MenuF
        .Handle = MeHwnd
        .AddLigne 201, "A Propo"
        .AddLigne 202, "Index"
        .VoirMenuF True 'affiche le menu
    End With
    Label5.SpecialEffect = 1
End Sub
Private Sub LN_MenuF_ClicMF(ByVal Index As Long)
    IDX = MemoMenuF(Index).Iindex
    Label3.Caption = MemoMenuF(Index).Itxt
    Select Case IDX
        Case 101
            T_Check = Not T_Check
            MsgBox T_Check
        Case 106
            Unload Me
    End Select
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, _
 ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'    If Button = 1 Then MsgBox "Vous avez effectué un clic Gauche."
    If Button = 2 Then
    Set LN_MenuF = New LN_MenuFlottant
    With LN_MenuF:
        .Handle = MeHwnd
        .AddLigne 101, "Propriétés"
        .AddLigne 0, "0"
        .AddLigne 106, "Quitter"
        .VoirMenuF
    End With
End If
End Sub

Public Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

' Obligé de mettre le Type et le tableau dans un module
' pour les avoir en Public.
Option Explicit
Public Type Erg1
    Iindex          As Long
    Itxt            As String
    Icheck          As Boolean
    ISiCheck        As Long
    ISiUnCheck      As Long
    IEnabled        As Boolean
    Ikey            As Variant
    Iflag           As Long
End Type
Public MemoMenuF()      As Erg1
Public Type POINTAPI
    X               As Long
    Y               As Long
End Type


Public Place As POINTAPI
Public Const PtTw = 1.3433

'Pour ouvrir avec le raccourci.. Ctrl+m
Sub AffiUF()
    PopUpMenu.Show 0

End Sub