Question

请高手帮解释一下以下的VB代码

这段代码是我毕业设计的程序的代码
老师让我们解释出代码的意思
由于时间比较赶
就到网上copy了一份
不知道其中的意思
希望有哪位高人能帮带为翻译一下
谢谢了...

----------------------------------------------
Option Explicit

Private Sub Command1_Click()
Unload Form1
Unload Me
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.FontUnderline = False
Label2.ForeColor = vbYellow
Label3.FontUnderline = False
Label3.ForeColor = vbYellow

End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.FontUnderline = True
Label2.ForeColor = vbRed
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.FontUnderline = True
Label3.ForeColor = vbRed
End Sub
--------------------------------------------
代码为以上--------内容

Answer 1

Private Sub Command1_Click()'按钮1 单击事件
Unload Form1 '卸载FORM1窗体
Unload Me '卸载当前窗体
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' 鼠标移动到frame1上边 触发该事件
Label2.FontUnderline = False ' label2去掉下划线
Label2.ForeColor = vbYellow' label2上边的字为黄色
Label3.FontUnderline = False ' label3去掉下划线
Label3.ForeColor = vbYellow' label3上边的字为黄色
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)' 鼠标移动到label2上边 触发该事件
Label2.FontUnderline = True' label2加上下划线
Label2.ForeColor = vbRed ' label2上边的字是红色
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)' 鼠标移动到label3上边 触发该事件
Label3.FontUnderline = True ' label3加上下划线
Label3.ForeColor = vbRed ' label3上边的字是红色
End Sub

Answer 2

点击Command1，窗口关闭。
鼠标放在Frame1上，Label2、Label3去掉下划线，字变成黄色。
鼠标放在Label2上，Label2添加下划线，字变成红色。（此时不算鼠标放在Frame1上）
鼠标放在Label3上，Label3添加下划线，字变成红色。。（此时不算鼠标放在Frame1上）

Answer 3

好简单的毕业设计啊，楼上有人回答了，我就不说了
学了这个毕业照样没用