ButtonColumns example for Visual Basic
'Please note the following:
'LEADRasterView1 refers to a LEADRasterView control
'Global declarations
Private WithEvents RasterAnn As LEADRasterAnnotation
Private RasterAnnToolbar As LEADRasterAnnToolBar
'In the Form_Load method:
Set RasterAnn = New LEADRasterAnnotation
Set RasterAnnToolbar = New LEADRasterAnnToolBar
RasterAnn.AnnParentRasterView = LEADRasterView1
Public Sub IncrementButtonColumns(AnnToolBar As LEADRasterAnnToolBar)
If AnnToolBar.ToolBarhWnd <> 0 Then
AnnToolBar.ButtonColumns = AnnToolBar.ButtonColumns + 1
End If
End Sub