ButtonColumns example for Visual Basic

Private Sub Command3_Click()
   LEAD1.AnnToolbar.ButtonColumns = LEAD1.AnnToolbar.ButtonColumns + 1
End Sub