VB6 Crash when stepping through code

Public Function IsRunningInIde() As Boolean
   Static called                                  As Boolean
   Static r                                       As Boolean

   If Not called Then
      called = True

      On Error Resume Next
      Debug.Print 1 / 0    ' Only raises error when running in IDE because Compiled Run-time ignores Debug object
      r = Err: Err.Clear
   End If

   IsRunningInIde = r
End Function

Private Sub Form_Load
    With MySkin

        If Not IsRunningInIde Then
                ' Runtime, so load skin
            .ExcludeModule "msado15.dll" ' ADO-Runtime
            .LoadSkin App.Path & "\..\Style\FTStyle.cjstyles", "normalblue.ini"
            .ApplyOptions = xtpSkinApplyMetrics Or xtpSkinApplyColors Or xtpSkinApplyFrame
       End If

        .AutoApplyNewThreads = Not IsRunningInIde

        .AutoApplyNewWindows = Not IsRunningInIde

    End With


End Sub

'You can check this flag anywhere in your code
Public IsIDE As Boolean
Private Sub Form_Load()
    IsIDE = False
    'This line is only executed if
    'running in the IDE and then
    'returns True
    Debug.Assert CheckIDE
    'Use the IsIDE flag anywhere
    If IsIDE Then
        MsgBox ("Running under IDE")
    Else
        MsgBox ("Running as EXE")
    End If
End Sub
 
Private Function CheckIDE() As Boolean
    'This function will never be executed in an EXE
    IsIDE = True        'set global flag
    'Set CheckIDE or the Debug.Assert will Break
    CheckIDE = True
End Function