Memory Leak in Mdi Form

[Wokawidget]

Private Sub mnuCreateTicket_Click()
   Screen.MousePointer = vbHourglass
   Load frmSearchForPNR
   Screen.MousePointer = vbNormal
   frmSearchForPNR.Show
   Set frmSearchForPNR = Nothing 'This line of code will never work
End Sub

try:

Private Sub mnuCreateTicket_Click()
Dim frmNew   As frmSearchForPNR
   Screen.MousePointer = vbHourglass
   Set frmNew = New frmSearchForPNR
   Load frmNew
   frmNew.Show
   Set frmNew = Nothing
   Screen.MousePointer = vbNormal
End Sub

Woka