VB_2014_SLIP 10

 

SLIP 10_1

Option Explicit

Private Sub Form_Load()

Dim btn1 As Button

Dim btn2 As Button

Dim btn3 As Button

Dim btn4 As Button

Dim btn5 As Button

Dim btn6 As Button

Set btn1 = Toolbar1.Buttons.Add

btn1.Caption = "abc"

btn1.Style = tbrDefault

Set btn2 = Toolbar1.Buttons.Add

btn2.Caption = "def"

btn2.Style = tbrDefault

Set btn3 = Toolbar1.Buttons.Add

btn3.Caption = "xyz"

btn3.Style = tbrDefault

Set btn4 = Toolbar1.Buttons.Add

btn4.Caption = "rsb"

btn4.Style = tbrDefault

Set btn5 = Toolbar1.Buttons.Add

btn5.Caption = "hij"

btn5.Style = tbrDefault

Set btn6 = Toolbar1.Buttons.Add

btn6.Caption = "_"

btn6.Style = tbrSeparator

End Sub