在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim inData As String
Text1. Text=""
Open "d: \myfile. txt "For______As #1
Do While ______
Input # 1，inData
Text1. Text=Text1. Text+inData
Loop
Close #1
End Sub
程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。

供电企业对窃电者应按所窃电量追缴电费，并追缴电费两倍的违约使用电费。