Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
 
		Select Case True
			Case e.Button Is ToolBarButton1
				Me.Close()
			Case e.Button Is ToolBarButton2
				Dim X As New Form2
				X.ShowDialog()
		End Select
 
	End Sub

I'm an idealist. I don't know where I'm going, but I'm on my way.
- Carl Sandburg