好象是个运动的标签框,还有一个滚动条
自己试一下就知道了一个Timer
一个HScroll1
一个Label
就行了

解决方案 »

  1.   

    楼上的说得对,就是window常见的一个屏幕保护程序。能详细说明一下,每一步吗。
      

  2.   

    HScroll是用来调整移动速度的。
    Lable是移动文字的内容Label1.Move Label1.Left - HScroll1.Value * 50
    移动文字If Label1.Left < -Label1.Width Then
    如果文字内容移出了窗体,则进行下面操作    Label1.FontSize = Int((30 - 10 + 1) * Rnd + 10)
        设置字体大小    Label1.Left = Me.Width
        将文字设置在窗体右侧    Label1.Top = Rnd * (Me.Height - Label1.Height)
        设置文字的Top值,使每次出现的位置不定End If
      

  3.   

    label1.move label1.left - HScroll1.value * 50 '移动标签控件
    if label1.left < -label1.width then '如果标签的位置超出窗体左边界
       label1.fontsize=int((30-10+1)*rnd+10) '随机确定字体
       label1.left=me.width '将标签移动到窗体最右边
       label1.top=rnd* (me.height-label1.height) '随机确定标签的垂直位置
    end ifend sub