问个超简单的问题 VB高手来帮帮忙

一、新建一个标准exe工程，工程中共有两个窗体分别是frm1和frm2
1.在frm1中添加一个文本框控件txt1一个按钮控件Cmd1,在frm2中添加一个Windows Media Player控件Winmp
2.在文本框txt1中输入媒体文件路径，单击按钮Cmd1时，frm2出现，并自动播放文本框中输入的路径上的媒体文件。并且当媒体正在播放时，改变文本框中的路径后单击按钮后frm2中的Windows Media Player控件自动更新正在播放的文件。
二、工程中有两个窗体，分别为Frm1和frm2
当单击窗体frm1时，产生一个随机数赋值给变量a ，同时frm2显现，Frm2上的Label1上显示出a的值，每次单击Frm1,窗体frm2上Label1上显示的结果都会自动更新。
请给出源代码，如果能加上详细注释再追加30分，谢谢。

和他不同,上课去咯

第一题窗体1代码如下:
Private Sub cmd1_Click()
frm2.Show '窗体2显示
frm2.WindowsMediaPlayer1.url = Form1.Text1.Text '窗体2中的播放器播放地址取 窗体一中TEXT1的值
frm2.WindowsMediaPlayer1.Controls.play '播放当前选择的文件
End Sub

窗体2
Private Sub WindowsMediaPlayer1_Click(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
Call frm1.cmd1_Click
End Sub

第二题
Private Sub Form_click() '单击窗体1
Randomize '产生随机种子 确保不重复
a = Rnd * 100 '随机产生100之内的数 并赋值给a
frm2.Show '窗体2显示
frm2.Label1.Caption = a '窗体2上的LABEL1标题改为a 也就是随机产生的那么数
End Sub

'窗体1中代码
Public a As Single

Private Sub Cmd1_Click()
frm2.Show
frm2.Winmp.URL = txt1.Text
End Sub

Private Sub Form_Click()
a = Rnd
frm2.Label1.Caption = a
End Sub

'窗体2中代码
'无