Private Sub cmdUp_Click()
  Dim sINI As String
 
  With gridINIs
    If .SelCount = 1 Then
      If .SelRow(0) > 1 Then
        sINI = .Text(SelRow(0), 1)
        .Text(SelRow(0), 1) = .Text(SelRow(1), 1)
        .Text(SelRow(1), 1) = sINI
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de