比如我配置方件内容如下：
1
2
3
然后读到TEXT1里的是：123
代码如下：
Private Sub Form_Load()
   Text1.Text = ""
Open App.Path & "\配置文件.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1 = Text1 + inputdata
Loop
End Sub
如何更改呢？
Close #1
Text1 = Trim(Text1)


后面两句在End Sub里面，不小心复制错了。

先声明一下：TEXT1的 MULTline 的值是TURE

4楼，5楼正解！Text1=Text1 & vbCrlf

谢谢楼上几位大神。

模块：
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Function GetIni(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String, ByVal FileName As String) As String
     Dim ResultString As String * 255
     If GetPrivateProfileString(ByVal SectionName, ByVal KeyWord, vbNullString, ByVal ResultString, ByVal Len(ResultString), ByVal FileName) > 0 Then
         GetIni = Left(ResultString, InStr(ResultString, Chr(0)) - 1)
     Else
         WritePrivateProfileString SectionName, KeyWord, DefString, FileName
         GetIni = DefString
     End If
End Function
用法：
WritePrivateProfileString "分类", "项目", "值", App.Path & "\install.ini"
s= GetIni("分类", "项目", vbNullString, App.Path & "\install.ini")

Private Sub Command1_Click()
Text1 = ""
Open App.Path & "\配置文件.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
Text1 = Text1 + inputdata
Text1 = Text1 & vbCrLf
Loop
Close #1
End Sub