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