Public Sub fortschritt(fortschritt As Integer)
    Set ch_bar.Picture = Nothing
    ch_bar.Line (1, 257)-(ch_bar.Width, fortschritt), 123456, BF
End Sub
 
Private Sub ch_bar_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
Dim yval As Integer
yval = Int(Y)
If Button Then
    If yval < 0 Then
    yval = 0
    End If
    If yval > 255 Then
    yval = 255
    End If
    Call fortschritt(yval)
    ch_value.Text = 255 - yval
End If
End Sub