Something

    Protected Overrides Sub Finalize()
        If Not PaintThread Is Nothing Then
            Try
                PaintThread.Abort()
            Catch : End Try
        End If
        If Not MySprite Is Nothing Then
            Try
                MySprite.Dispose()
            Catch : End Try
        End If

        If Not MyDevice Is Nothing Then
            Try
                If MyDevice.Disposed = False Then
                    MyDevice.Dispose()
                End If
            Catch : End Try
        End If

        MyBase.Finalize()
    End Sub