VB Crash Sample

The following is the code that was causing the application crash.

The Public Sub MaintainOcc(ByVal Occ As String, ByVal OccType As String)

On Error GoTo ErrHandler

Dim frm As frmPickType

Set frm = New frmPickType
Load frm
frm.ExistingOcc (Occ)
frm.OccType = OccType
frm.Show
Set frm = Nothing
Exit Sub
ErrHandler:
    MsgBox "Error No: " & Err.Number & vbCrLf & "Error Description: " & Err.Description
End sub

Application is crashing when calling frm.show.

The frm.show statement was executed followed by Set frm = Nothing and Exit sub.

UserForm_Activate() event is then fired OK and application crashed after completing this event.

There are no other events after this in the form.

The form was supposed to be displayed instead the app crashed.

Please help..

Thanks

steve