UserForm Tıklanınca Hata Veriyor

[Araştırıcı]

Değerli Forum Üyeleri,Selam.

UserForm üzerine tıkladığımda ekteki hata gösteriliyor. Bu neden oluyor, gidermek için ne yapabiliriz?

Saygılarımla

Hatanın işaretlendiği kod alanı aşağıdadır.

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
On Error Resume Next

Dim Ret As Long
On Error Resume Next
If Button = 2 Then
hPopMenu = CreatePopupMenu()
AppendMenu hPopMenu, MF_STRING, 1, "PopUpFile"
AppendMenu hPopMenu, MF_STRING, 2, "PopUpEdit"
AppendMenu hPopMenu, MF_SEPARATOR, 3, ByVal 0&
AppendMenu hPopMenu, MF_STRING, 4, "Hakkinda"

GetCursorPos Pt
Ret = TrackPopupMenuEx(hPopMenu, TPM_LEFTALIGN Or TPM_RETURNCMD Or _
TPM_RIGHTBUTTON, Pt.x, Pt.y, g_hForm, ByVal 0&)
DestroyMenu hPopMenu

Select Case Ret
Case 1
Call MenuProc1
Case 2
Call MenuProc2
Case 4
Call MyAboutMenu
End Select
End If
End Sub

 

[Rıdvan01]

sn. araştırıcı
benim fazla vba bilgim yok fakat benimde başıma geldi zaten hata mesajından belli oluyorki
tanımlama hatası var yazmış oldugunuz kodlarla uyuşmayan tanımlamalar olabilir
tekrar gözden geçiriniz.