求vb高手详细解释语句

Private Sub Form_Load()
　　Combo1.Text = ""
　　Combo1.Top = 0　　　　
　　Combo1.Left = 0
　　WebBrowser1.Top = Combo1.Top ＋ Combo1.Height　　
　　WebBrowser1.Left = 0
　　Form_Resize
　　StatusBar1.Style = sbrSimple
　　ProgressBar1.Zorder
　　End Sub

　 Private Sub Form_Resize()
　　On Error GoTo a
　　Combo1.Width = Form1.Width － 100　　
　　WebBrowser1.Width = Combo1.Width
　　WebBrowser1.Height = Form1.Height － Combo1.Height － 1000　　
　　ProgressBar1.Top = Me.Height － StatusBar1.Height － 330　　
　　ProgressBar1.Left = 0.25 * StatusBar1.Width
　　ProgressBar1.Width = 0.75 * Me.Width － 250
　　a:
　　End Sub
　　
　　Private Sub Combo1_Click()
　　WebBrowser1.Navigate Combo1.Text　　
　　End Sub

　　Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
　　Dim I As Long
　　Dim existed As Boolean
　　If KeyCode = 13 Then
　　If Left(Combo1.Text, 7) <> "http://"Then　　
　　Combo1.Text = "http://"＋ Combo1.Text
　　End If
　　WebBrowser1.Navigate Combo1.Text　　
　　For I = 0 To Combo1.ListCount － 1
　　If Combo1.List(I) = Combo1.Text Then
　　existed = True
　　Exit For
　　Else
　　existed = False
　　End If
　　Next
　　If Not existed Then
　　Combo1.AddItem (Combo1.Text)　　
　　End If
　　End If
　　End Sub

　　Private Sub WebBrowser1_DownloadBegin()
　　StatusBar1.SimpleText = "载入中…"　　
　　End Sub

　　Private Sub WebBrowser1_DownloadComplete()
　　StatusBar1.SimpleText = "下载完成"　
　　ProgressBar1.Value = 0
　　End Sub

　　
　　Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,ByVal ProgressMax As Long)
　　If ProgressMax = 0 Then Exit Sub　　
　　ProgressBar1.Max = ProgressMax
　　If Progress <> －1 And Progress <= ProgressMax Then
　　ProgressBar1.Value = Progress
　　End If
　　End Sub
　　
　　Private Sub WebBrowser1_TitleChange(ByVal Text As String)
　　Combo1.Text = WebBrowser1.LocationURL
　　End Sub

　　Private Sub Command1_Click()
　　CommonDialog1.ShowOpen　　　　
　　WebBrowser1.Navigate CommonDialog1.FileName
　　End Sub

'窗体加载事件

Private Sub Form_Load()
'初始下拉列表框位置

Combo1.Text = ""
　　Combo1.Top = 0　　　　
　　Combo1.Left = 0

'初始化浏览器控件的位置
　　WebBrowser1.Top = Combo1.Top ＋ Combo1.Height　　
　　WebBrowser1.Left = 0
　　Form_Resize

'设置状态栏风格
　　StatusBar1.Style = sbrSimple

'初始化进度条控件
　　ProgressBar1.Zorder
　　End Sub

'窗体大小改变事件

'主要实现根据窗体大小的改变

'而改变下拉列表框和浏览器控件的大小

　 Private Sub Form_Resize()
　　On Error GoTo a
　　Combo1.Width = Form1.Width － 100　　
　　WebBrowser1.Width = Combo1.Width
　　WebBrowser1.Height = Form1.Height － Combo1.Height － 1000　

'设置进度条的位置和大小　
　　ProgressBar1.Top = Me.Height － StatusBar1.Height － 330　　
　　ProgressBar1.Left = 0.25 * StatusBar1.Width
　　ProgressBar1.Width = 0.75 * Me.Width － 250
　　a:
　　End Sub
　　'下拉列表框单击事件

　　Private Sub Combo1_Click()

'加载下拉列表框中的指定的地址
　　WebBrowser1.Navigate Combo1.Text　　
　　End Sub

　　Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
　　Dim I As Long
　　Dim existed As Boolean

'判断是否按回车键
　　If KeyCode = 13 Then

'判断是否已http://开头
　　If Left(Combo1.Text, 7) <> "http://"Then　　
　　Combo1.Text = "http://"＋ Combo1.Text
　　End If

'加载网址
　　WebBrowser1.Navigate Combo1.Text

'循环列表框中内容　　
　　For I = 0 To Combo1.ListCount － 1

'判断输入内容是否在列表框中存在
　　If Combo1.List(I) = Combo1.Text Then
　　existed = True
　　Exit For
　　Else
　　existed = False
　　End If
　　Next

'如果不存在择新增到列表框中
　　If Not existed Then
　　Combo1.AddItem (Combo1.Text)　　
　　End If
　　End If
　　End Sub

'地址加载开始事件
　　Private Sub WebBrowser1_DownloadBegin()
　　StatusBar1.SimpleText = "载入中…"　　
　　End Sub

　　'地址加载完成事件

　　Private Sub WebBrowser1_DownloadComplete()
　　StatusBar1.SimpleText = "下载完成"　
　　ProgressBar1.Value = 0
　　End Sub

　　'地址加载进度改变事件
　　Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,ByVal ProgressMax As Long)
　　'判断进度条初始值是否为0

If ProgressMax = 0 Then Exit Sub

'设置进度条加载进度　　
　　ProgressBar1.Max = ProgressMax
　　If Progress <> －1 And Progress <= ProgressMax Then
　　ProgressBar1.Value = Progress
　　End If
　　End Sub
　　
　　Private Sub WebBrowser1_TitleChange(ByVal Text As String)

'设置首页
　　Combo1.Text = WebBrowser1.LocationURL
　　End Sub

　　Private Sub Command1_Click()

'显示对话框
　　CommonDialog1.ShowOpen

　　'加载指定的链接地址　　
　　WebBrowser1.Navigate CommonDialog1.FileName
　　End Sub

本人能力有限，不是专业搞VB回答有不妥之处望指正，谢谢

这个写的是一个简易的浏览器