让窗口的标题滚动

Question

是不是这个？
Private Sub Timer1_Timer()
    If WindowState = vbMinimized Then
        Dim s As String
        s = Caption
        Caption = Mid$(s, 2) & Left$(s, 1)
    End If
End Sub

Answer 1

我见过用bitblt api制作的
主要是标题无闪烁
现在找不到了
高手有谁知？

Answer 2

更完善的哦：Private StrCaption As StringPrivate Sub Form_Load()
    StrCaption = Caption
End SubPrivate Sub Form_Resize()
    If WindowState = vbMinimized Then
        Timer1.Enabled = True
    Else
        Timer1.Enabled = False
        Caption = StrCaption
    End If
End SubPrivate Sub Timer1_Timer()
    Dim s As String
    s = Caption
    Caption = Mid$(s, 2) & Left$(s, 1)
End Sub