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