All pastes #488719 Raw Edit

Something

public text v1 · immutable
·published 2007-05-15 04:06 UTC
rendered paste body

    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