Const SRCCOPY = &HCC0020
Const ShowText$ = "This line of text scrolls vertically." Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Dim ShowIt% 'Code 'timer event: Private Sub Timer1_Timer() Dim Ret As Integer If (ShowIt% = 100) Then 'play with this value for desired effect Picture1.CurrentX = 0 Picture1.CurrentY = Picture1.ScaleHeight - 15 'play with this also Picture1.Print ShowText$ ShowIt% = 0 Else Ret = BitBlt(Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight - 1, Picture1.hDC, 0, 1, SRCCOPY) ShowIt% = ShowIt% + 1 End If Add a picturebox to the form and set its scalemode to pixel (3). Add a timer to the form with an interval of about 25. Now put this code in the timer's |