国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const walkligtxt = "舧秈おò戈畐恨瞶╰參"
Const lenwklig = 100
Dim alllen
Dim time
Dim chk As Boolean
Private Sub Trwklg_Timer()
    Do While chk
        alllen = alllen - 1
        Me.Label1.Caption = Right(Me.Label1.Caption, alllen)
        Sleep 20
        DoEvents
        If Label1.Caption = "" Then chk = False: UserForm_Activate
    Loop
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Activate()
    Me.Label1.Caption = Space(110) + walkligtxt
    alllen = lenwklig + Len(walkligtxt)
    chk = True
    Me.Label1.Enabled = True
    Trwklg_Timer
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    chk = False
End Sub

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。