Private Sub scrhoehe_Change()
    Dim h As Integer
    h = 0
    h = scrhoehe.Value
    pctquader.Line (-190, 5)-(-190, h)
    pctquader.Line (170, 50)-(170, h)
    pctquader.Line (-50, 5)-(-50, h)
    pctquader.Line (-30, 50)-(-30, h)
End Sub