填空题

以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在图片框Picture1中显示出来。请填空。
Private Sub Command1_Click( )
Dim inData As String
Open ".\mText1.txt" (13) As 1
Do While Not EOF(1)
Input #i，inData
Picture1.Print inData
Loop
Close#1
End Sub