ButtonRows example for Visual Basic

Private Sub Command2_Click()
   LEAD1.AnnToolbar.ButtonRows = LEAD1.AnnToolbar.ButtonRows + 1
End Sub