Private Sub Command1_Click() Dim strLine As String Text1.Text = "" Open "f:\pinyin.txt" For Input As #1 While Not EOF(1) Line Input #1, strLine Text1.Text = Text1.Text & strLine & vbCrLf Wend Close #1End Sub