Public Sub MyToolBar(ByVal InstForm1)
        Dim ToolBar2 As New ToolBar
        Dim ImageList1 As New ImageList
        Dim myImage As System.Drawing.Image = Image.FromFile( _
          "D:\Daten\Programmierung\icons\OOFL.ico")
        ImageList1.Images.Add(myImage)
        Dim ToolBarButton1 As New ToolBarButton
        ToolBar2.Buttons.Add(ToolBarButton1)
        ToolBar2.ImageList = ImageList1
        ToolBarButton1.ImageIndex = 0
    End Sub