Where did you find it? Do you still have the link?Originally Posted by tpoynton
In the attached, clicking on the seperate labels "8am","noon", etc. will adjust the time accordingly.
One of my pet peeves is the use of If..Then..Else to set boolean values. I altered the CheckBox1_Click event.
[VBA]Private Sub CheckBox1_Click()
With TextBox1
.Locked = Not (.Locked)
.Text = Format(ScrollBar1.Value / ScrollBar1.Max, formatString)
End With
End Sub[/VBA]




Reply With Quote