Visual Basic 6 - Menu sparito

ho un immagine quando clicco su quella mi appare un menu che cliccando sul menu mi apre un comdlg, se però faccio annulla quando clicco il menu non appare piu?????? come posso fare????

Il codice?

non ho ben capito il tuo problema, se ti spieghi meglio magari possiamo aiutarti

d'accordo che siamo una community e che quindi all'insieme di individui sono capitati le piu svariate situazioni ma non e` impossibile capire che a seconda del codice usato cambia completamente la risposta.
e` come dire, "sai trovo strano che questa derivata mi dia 5.." ..senza dire la funzione che sei andato a derivare.

concordo ...

P4p3r0g4...

eccomi scusate per l'attesa ma ero assente...

pressione del pulsante:

Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu list1mnu
End If
End Sub

Menu (il primo, per caricare)

CommonDialog2.filename = App.Path & "\Playlist" & "\Playlist"
CommonDialog2.CancelError = False
CommonDialog2.Filter = "File Playlist (*.pll)|*.pll"
CommonDialog2.ShowOpen
If CommonDialog2.filename <> "" Then
Dim mystring As String
    On Error Resume Next
    Open CommonDialog2.filename For Input As #1
    While Not EOF(1)
        Input #1, mystring$
        DoEvents
        If mystring$ <> "" Then
        List1.AddItem mystring$
        End If
    Wend
    Close #1
    End If

ed il secondo (per salvare)

CommonDialog2.filename = App.Path & "\Playlist" & "\Playlist"
CommonDialog2.Filter = "File Playlist (*.pll)|*.pll"
CommonDialog2.CancelError = False
    CommonDialog2.ShowSave
    CommonDialog1.Filter = "File Playlist (*.pll)|*.pll"
    If CommonDialog2.filename <> "" Or CommonDialog2.filename <> "Playlist" Then
    Dim savelist As Long
    On Error Resume Next
    Open CommonDialog2.filename For Output As #1
    For savelist& = 0 To List1.ListCount - 1
        Print #1, List1.List(savelist&)
    Next savelist&
    Close #1
    End If

grazie e scusate ancora

Sì ... ma quale menu non appare piu' ?