Private Sub HScrollBar4_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar4.ValueChanged
        Dim a As Double = 0
        a = HScrollBar4.Value * 0.01
        wdt.Text = 0.05 + a
        Console.WriteLine(Val(wdt.Text))
    End Sub