Ad1 input K8000

can someone give me an example how i can read the value on ad1 and see it on a slider or something else in vb6 thx very much