Is NASA's Moon Rocket Getting Canceled?
3 hours ago
Not so serious, bite-sized articles providing information and insights into using technology in online and hybrid courses. These articles explore new and emerging technologies, pedagogy, instructional design, technology management, web accessibility, and design of assessments. This site is meant to help you become more aware of the possibilities and to spark your creativity. Laugh a little with this "light reading." Published when you least suspect it! Email: jamesfalkofske[at]yahoo[dot]com
Sub DownBit()
' DownBit Macro
' Autoscroll Window
Dim PauseTime, Start, Finish, TotalTime
Dim i, iMax As Integer
Dim i1, i2 As String
Dim fTiming As Double
i1 = InputBox("Enter number of Lines to Move", _
"Teleprompter Motion", 100)
iMax = CInt(i1)
i2 = InputBox("Enter Delay seconds between moves", _
"Movement Timing", 0.35)
fTiming = CDbl(i2)
For i = 1 To iMax
PauseTime = fTiming ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
'Move down a small scroll increment
ActiveWindow.ActivePane.SmallScroll Down:=1
Next i
End Sub