[configuracion]
SWidth=5000
SHeight=7800
SLeft=0
STop=1500
sCap=Hola Mundo

Dim INIFile As String
Private Sub Form_Load()
'se le pasa la ruta del archivo ini para que lo lea
INIFile = App.Path & "\config.ini"
 
Me.Left = GetKeyVal(INIFile, "configuracion", "SLeft")
Me.Top = GetKeyVal(INIFile, "configuracion", "STop")
Me.Width = GetKeyVal(INIFile, "configuracion", "SWidth")
Me.Height = GetKeyVal(INIFile, "configuracion", "SHeight")
Me.Caption = GetKeyVal(INIFile, "configuracion", "SCap")
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'se guarda los valores
Call AddToINI(INIFile, "configuracion", "SLeft", Me.Left)
Call AddToINI(INIFile, "configuracion", "STop", Me.Top)
Call AddToINI(INIFile, "configuracion", "SWidth", Me.Width)
Call AddToINI(INIFile, "configuracion", "SHeight", Me.Height)
Call AddToINI(INIFile, "configuracion", "SCap", Text1.Text)
End Sub
 

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const EM_GETLINE As Long = &HC4
Private Const EM_LINELENGTH As Long = &HC1
 
Function GetLineText(TextBox As TextBox, Optional LineNumer As Long = 1) As String
Dim lc As Long, Ret As Long, Str As String
lc = SendMessage(TextBox.hwnd, EM_GETLINECOUNT, 0&, 0&)
    Ret = SendMessage(TextBox.hwnd, EM_LINELENGTH, (LineNumer - 1), 0&)
    Str = Space(Ret)
 
    SendMessage TextBox.hwnd, EM_GETLINE, (LineNumer - 1), Str
    GetLineText = Str
End Function
 
Private Sub Command1_Click()
MsgBox GetLineText(Text1, 3)
End Sub

Private Sub Form_Load()
      Dim i As Integer, Str As String
 
     On Error GoTo ERROR
 
1    For i = 0 To 257
2    Str = Chr(i)
3    Next
4    Exit Sub
ERROR:
    MsgBox Err.Description & ", en la linea " & Erl, , "Error " & Err.Number
End Sub