' Neuen Schlüssel hinzufügen
Private Sub btnNew_Click()
  Dim strSection        As String
  Dim itemX             As ListItem
 
  ' Form anzeigen
  Load INISchlüsselwert
  With INISchlüsselwert
    .Show 1
    If .Tag = True Then
      ' Neuen Eintrag speichern
      strSection = lstSections.List(lstSections.ListIndex)
      WritePrivateProfileString strSection, _
        Trim$(.sevTxtKey.Text), .sevTxtValue.Text, INIFile
 
      ' ListView aktualisieren
      Set itemX = lvwKeys.ListItems.Add(, , _
        Trim$(.sevTxtKey.Text))
      itemX.SubItems(1) = .sevTxtValue
 
      ' Eintrag suchen und markieren
      Set lvwKeys.SelectedItem = itemX
    End If
  End With
  Unload INISchlüsselwert
End Sub