小女子高分请教一个VB问题

我这里有一个用户控件（下载文件用的），代码如下：
Option Explicit
Event DownloadError(SaveFile As String)
Event DownloadComplete(MaxBytes As Long, SaveFile As String)
Event DownloadProgress(CurBytes As Long, MaxBytes As Long, SaveFile As String)
Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
On Error Resume Next
Dim f() As Byte, fn As Long
If AsyncProp.BytesMax <> 0 Then
fn = FreeFile
f = AsyncProp.Value
Open AsyncProp.PropertyName For Binary Access Write As #fn
Put #fn, , f
Close #fn
Else
RaiseEvent DownloadError(AsyncProp.PropertyName)
End If
RaiseEvent DownloadComplete(CLng(AsyncProp.BytesMax), AsyncProp.PropertyName)
End Sub
Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)
On Error Resume Next
If AsyncProp.BytesMax <> 0 Then
RaiseEvent DownloadProgress(CLng(AsyncPr

VB高手来，高分请教一个RichTextBox的问题 请教vb一个vb问题 请教一个VB问题 请教一个vb问题 小女子请教大家一个问题，在线等。。。。。。。 高分请教一个问题~~~~~~~ 请教VB的一个问题 请教一个问题，关于VB！ 请教一个VB编程问题 请教一个VB的问题