Automation Error...

[Nean]

It errors on the same line.

Code:

ErrorHandle:
    
    If Err.Number = 91 Then
        Sleep 100
        Call ReInitDD
        Err.Clear
        Exit Sub
    End If
    
    TexthDC = DDS_BackBuffer.GetDC ' Lock the backbuffer so we can draw text and names
    
    Call DrawText(TexthDC, 10, 15, "Error Rendering Graphics - Unhandled Error", QBColor(BrightRed))
    Call DrawText(TexthDC, 10, 28, "Error Number : " & Err.Number & " - " & Err.Description, QBColor(BrightCyan))

    GoTo Continue
            
End Sub

On

Code:

TexthDC = DDS_BackBuffer.GetDC ' Lock the backbuffer so we can draw text and names