求助：求高人做个VB小程序，最简单的那种 百分悬赏

Question

RT，需要5个控件，5个事件。不要高深的，越简单越好。
好了给加分，简单的就好，千万别高深了，就是入门级的就行
谢咯
现在就在线等！！！

Answer 1

Private Sub Command1_Click()
'存储文本
Open App.Path & "\c.text" For Append As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Combo1_Change()
If Combo1.List(Combo1.ListIndex) = "条件" Then
Text1.Text = "内容"
End If
End Sub

Private Sub Combo1_LostFocus()
Combo1.AddItem Combo1.Text
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlack
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H0&
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbGreen
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbWhite
End Sub

Private Sub Timer1_Timer()
If Time = "07:00:00" Then MsgBox "cccc"
End Sub

我这边回不了你的问题,不能回答,也不能发文件
你发你发油箱,我从邮箱或者QQ发给你
快

Answer 2

Hi我 按照详情给你做

Answer 3

什么时候要！