vb程序，高手请进 急

1.在vb窗体上显示动态、变色文字，左进右出
2.点击窗体发出声音
3.标题文字左进右出
给出具体程序代码

补充：声音要丰富点吧
		

追问：能不能把点击窗体的声音变下？这样答案就完美了

答案：Private Const fTitle  As String = "我向右移动"
Private Const MaxSpace As Long = 20  '控制最大位移
 
Private Sub Form_Click()
Beep  '单击窗体发声
End Sub
Private Sub Form_Load()
   Timer1.Interval = 100
   Timer2.Interval = 150
End Sub
Private Sub Timer1_Timer()'动态变色文字及左进右出
Randomize
Label1.ForeColor = RGB(Int(Rnd * 250), Int(Rnd * 250), Int(Rnd * 250)) '变色
'*********************左进右出************************
If Label1.Left < Me.Width Then
   Label1.Left = Label1.Left + 80  '控制最大位移
Else
   Label1.Left = 0
End If
'******************************************************

End Sub
 
 
Private Sub Timer2_Timer() '标题栏文字左进右出
        Static i  As Long, j  As Boolean
        Dim tmpStr As String, sLen As Long
        
        sLen = Len(fTitle)
       i = i + 1
        If i >= 0 And i <= MaxSpace Then
                tmpStr = Space(i) & fTitle
        Else
                If i < 0 Then
                        tmpStr = Mid(fTitle, Abs(i), sLen + i)
                Else
                      i = 0
                End If
        End If
        Me.Caption = tmpStr
End Sub
 
窗体上放2个Timer控件和1个label
动态变色和文字左进右出 我用一个TIMER来控制了，你也可以分开。
1.简单点，用 label 控件装载文字，用Timer改变 Label 的文字颜色，颜色根据你自己需要调配，RGB,0~255
2.用多媒体控件播放声音。
3.最简单的，在Timer内循环设置标题文字，空空格控制进出距离，内容通过字符串拆解组合就是左进右出的效果。
4.如果以上的你自己做不了，给你源代码对你也没有提高的意义，除非你有一些细节不明白再说。
5.代码太啰嗦，做起来费时间，我比你还懒，不做了。
Dim strText As String
Private Sub Command1_Click()
    Reset
End Sub
Private Sub Form_Click()
    Beep '声音
    Label2.Visible = True
    Label2.Width = 0
    Timer1.Enabled = True
    
End Sub
Private Sub Form_Load()
    Timer1.Interval = 100
    Timer1.Enabled = False
    Command1.Caption = "重设"
    
    Reset
    
End Sub
Private Sub Timer1_Timer()
    
    Label2.Width = Label2.Width + 100
    
End Sub
Private Sub Reset()
    strText = InputBox("输入文本")
    
    Label1 = strText
    Label1.ForeColor = vbBlue
    
    Label2 = strText
    Label2.ForeColor = vbRed
    Label2.Top = Label1.Top
    Label2.Left = Label1.Left
    Label2.Visible = False
    
End Sub
'窗体放一个计时器(timer1)，一个命令按钮(command1)，两个标签(label1和label2)
'点击窗体运行效果

上一个：帮我写这个vb的代码
下一个：VB数据库编程，求助VB高手！