代码:

---

Private Sub Command1_Click()
    Open "C:\serverip.txt" For Input As #1
    Dim Lines As String
    Dim NextLine As String
    Do Until EOF(1)
        Line Input #1, NextLine
        Lines = Lines & NextLine & Chr(13) & Chr(10)
    Loop
    Close #1
    '还应该过滤一下空格
    Text1.Text = Trim(Lines)
    '程序把lines当字符串了，改成这样：
    Shell "arp -s " & Trim(Lines) & " 00-00-00-00-00-00"
End Sub

---