hmm... that can't be too right...

[The Hobo]

I believe you need to add this to your code:

Private Sub Toolbar1_[b]ButtonMenuClick[/b](ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  Select Case ButtonMenu.Text
    Case "Set Home Page"
      HomePage.Show
  End Select
End Sub

It's a seperate event for buttons and menu's on the toolbar.