'下面是我的一个程序中“加载”按钮的代码
Private Sub cmdLoad_Click()
Dim FileName As String
Dim FileNum As Integer
Dim strData As String


FileName = OpenFile(Me.hWnd, "Mail List Files|*.txt|All Files|*.*", 0)
If FileName <> "" Then
txtMailList = ""
FileNum = FreeFile
Open FileName For Input As #FileNum
While Not EOF(FileNum)
Line Input #FileNum, strData
txtMailList.Text = txtMailList.Text & strData & vbCrLf
Wend
Close #FileNum

If Right(txtMailList, 2) = vbCrLf Then
txtMailList.Text = Left(txtMailList.Text, Len(txtMailList.Text) - 2)
End If
End If

End Sub