Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PopupMenu menu1, , Label1.Left, Label1.Top + Label1.Height
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PopupMenu menu2, , Label2.Left, Label2.Top + Label2.Height
End Sub