Private Sub List1_Click
 
Dim ProfileIndex As Long
Dim sValue As String
 
If List1.ListIndex = -1 Then
    Exit Sub
Else
    ProfileIndex = List1.ListIndex + 1
End If
 
sValue = GetINIString("Profil" & CStr(ProfileIndex), "Host", "", INIFile)
txtHost.Text = sValue
 
sValue = GetINIString("Profil" & CStr(ProfileIndex), , "User", "", INIFile)
txtUser.Text = sValue
 
sValue = GetINIString("Profil" & CStr(ProfileIndex), , "Password", "", INIFile)
txtPassword.Text = sValue
 
sValue = GetINIString("Profil" & CStr(ProfileIndex), , "Starts", "", INIFile)
txtRemoteDir.Text = sValue
 
sValue = GetINIString("Profil" & CStr(ProfileIndex), , "Startl", "", INIFile)
txtLocalDir.Text = sValue
 
End Sub

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)