[求助]希望得到大家的帮助啊

<P>我有下面的程序 希望那位高手帮我改进下啊 不胜感激！！！两个按钮 1）“读取”实现读取*.txt文件 也就是把中间的九个点的坐标另做为TXT文件 2）“显示”再屏幕中显示出来</P>
<P>Private Sub Command1_Click()
    Dim X(9) As Double, Y(9) As Double
    Dim t(9) As String
    Dim i As Integer
    
    Form1.AutoRedraw = True
    X(1) = 6895.854: Y(1) = 449.517: t(1) = "电杆1"
    X(2) = 6186.659: Y(2) = 423.715: t(2) = "电杆2"
    X(3) = 5031.439: Y(3) = 1598.862: t(3) = "电杆3"
    X(4) = 5101.541: Y(4) = 2050.105: t(4) = "电杆4"</P>
<P>    X(5) = 6127.3494: Y(5) = 1630.8833: t(5) = "变1"
    X(6) = 5988.0827: Y(6) = 2795.6415: t(6) = "变2"
    X(7) = 5492.7946: Y(7) = 802.3349: t(7) = "变3"
    X(8) = 5398.2769: Y(8) = 1712.1753: t(8) = "变4"
    X(9) = 2456.4123: Y(9) = 2925.6123: t(9) = "变电所A"</P>
<P>    
    Form1.ScaleWidth = 8000
    Form1.ScaleHeight = 4000
    For i = 1 To 9
        Form1.PSet (X(i), Y(i))
        Form1.CurrentX = X(i) - 10
        Form1.CurrentY = Y(i) + 2
        Form1.Print t(i)
    Next i
    
End Sub
算小生祈求大家了</P>