tb = wx.ToolBar(self, -1)
        self.ToolBar = tb
        self.tbutton = wx.ToggleButton(tb, -1, "stop")
        self.tbutton.Bind(wx.EVT_TOGGLEBUTTON, self.OnToggle)
        
        self.slide = wx.Slider(tb, value = 100, minValue = 5, maxValue = 1000, size = (100, 10),
           style = wx.SL_HORIZONTAL|wx.SL_LABELS)
        
        #self.slide.SetTickFreq(self, 50)

        #self.slide.Bind(wx.EVT_SLIDER, self.OnSliderScroll)
        
        self.slide.Bind(wx.EVT_SCROLL_CHANGED, self.OnSliderScroll)
       
        #hbox = wx.BoxSizer(wx.HORIZONTAL)        
        #hbox.Add(self.tbutton,0,wx.ALIGN_CENTER)
        
        tb.AddControl(self.tbutton)
        tb.AddControl(self.slide)
        tb.Realize()