AnnContainer example for Visual Basic

Private Sub LEADRasterOLEDB1_DataLoaded(ByVal nStatus As Integer)

    If (nStatus = 0) Then
        RasterAnn.AnnContainer = 0
        RasterAnn.AnnContainer = LEADRasterOLEDB1.AnnContainer
    ElseIf (nStatus = ERROR_FILENOTFOUND) Then 'if it's an empty record
    ElseIf (nStatus <> ERROR_FILENOTFOUND) Then 'if it's not an empty record
        MsgBox "Error loading from database!"
    End If
    LEADRasterView1.ForceRepaint
End Sub