From: hermann leinen on
I got it now... :-)

Dim lMin&
Dim lMax&

lMin = 5
lMax = 1000

Dim lPos&
lPos = (log10(nValue) - log10(lMin)) / (log10(lMax) - log10(lMin))
* (Me.slider1.Max - Me.slider1.Min)

Me.slider1.value = lPos
 | 
Pages: 1
Prev: Slider math
Next: Hex Editor & VB6