河南南阳的旅行社:关于vb，高手请进。紧急求助。生死攸关。拜托。

不知道你想移动的是 form.caption 呢还是一般的 label

这是个例子，你看下基本就是这样
Dim a As Integer
Dim b As Integer

Private Sub Form_Load()
Label1.Caption = "œyÔ‡"
a = 10
Randomize
End Sub

Private Sub Timer1_Timer()
b = Rnd * 15
Label1.Move Label1.Left + a, Label1.Top
Label1.ForeColor = QBColor(b)
If Label1.Left < 0 Then a = a * -1
If Label1.Left > Form1.Width - Label1.Width Then a = a * -1
End Sub

看不懂他们回答的是什么意思啊...不知道是不是我理解错误了

移动标题的话,标题一般都是用label控件的吧,那么就用label.left+移动的长度 来实现
颜色变化的话,可以利用timer控件,通过改变label的forecolor这个属性来实现

Dim r As Integer
Dim g As Integer
Dim b As Integer

Private Sub Form_Load()
Label1.Caption = "我是天才"
r = Rnd * 256
g = Rnd * 256
b = Rnd * 256
End Sub

//别忘了timer控件//

Private Sub Timer1_Timer()
Randomize
Dim x As Integer
Dim y As Integer
r = r+Rnd * 21-10
g = g+Rnd * 21-10
b = b+Rnd * 21-10
Label1.Left=Label1.Left+Rnd * 21-10
Label1.top=Label1.top+Rnd * 21-10
Label1.ForeColor = rgb(r,g,b)
If Label1.Left < 0 or Label1.Left > Form1.Width - Label1.Width Then Label1.Left =(Form1.Width - Label1.Width)/2
If Label1.top < 0 or Label1.top > Form1.high - Label1.high Then Label1.Left =(Form1.high - Label1.high)/2
End Sub

汗..Label1.Caption = "我是天才"

这话你都能说出来 佩服

用left或者rinht
颜色time事件