Public Sub drawbar_results(ByVal x As Integer, ByVal y As Integer, ByVal w As Integer, ByVal h As Integer)
        Me.x = x : Me.y = y : Me.w = w : Me.h = h
        pnl01Results.Refresh()
    End Sub

    Private Sub pnl01Results_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pnl01Results.Paint
        e.Graphics.FillRectangle(brush, x, y, w, h)
        MyBase.OnPaint(e)
    End Sub