Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        With DGV
            .Columns.Add("ID", "ID")
            .Columns.Add("Nachname", "Nachname")
            .Columns.Add("Vorname", "Vorname")
 
            .ReadOnly = True
            .AllowUserToAddRows = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
 
            .Rows.Add("1", "Müller", "Manfred")
            .Rows.Add("2", "Schmidt", "Jürgen")
            .Rows.Add("3", "Meyer", "Karl")
            .Rows.Add("4", "Huber", "Kurt")
            .Rows.Add("5", "Seemann", "Kevin")
            .Rows.Add("6", "König", "Jörg")
            .Rows.Add("7", "Klötenhofer", "Julius")
            .Rows.Add("8", "Gmbhl", "Johann")
            .Rows.Add("9", "Alemalachn", "Uwe")
            .Rows.Add("10", "Simsalabim", "Desmo")
 
        End With
    End Sub
 
    Private Sub btnHoch_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnHoch.Click
        Dim R As Integer = DGV.CurrentRow.Index
 
        If R = 0 Then Exit Sub
 
        Dim ID1 As String = DGV.Rows(R).Cells(0).Value.ToString
        Dim Nachname1 As String = DGV.Rows(R).Cells(1).Value.ToString
        Dim ID2 As String = DGV.Rows(R - 1).Cells(0).Value.ToString
        Dim Vorname1 As String = DGV.Rows(R).Cells(2).Value.ToString
        Dim Nachname2 As String = DGV.Rows(R - 1).Cells(1).Value.ToString
        Dim Vorname2 As String = DGV.Rows(R - 1).Cells(2).Value.ToString
 
        DGV.Rows(R - 1).Cells(0).Value = ID1.ToString
        DGV.Rows(R).Cells(0).Value = ID2.ToString
        DGV.Rows(R - 1).Cells(1).Value = Nachname1.ToString
        DGV.Rows(R).Cells(1).Value = Nachname2.ToString
        DGV.Rows(R - 1).Cells(2).Value = Vorname1.ToString
        DGV.Rows(R).Cells(2).Value = Vorname2.ToString
 
        DGV.Rows(R - 1).Selected = True
        DGV.Rows(R - 1).Cells(0).Selected = True
    End Sub
 
    Private Sub btnRunter_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnRunter.Click
        Dim R As Integer = DGV.CurrentRow.Index
 
        If R = DGV.Rows.Count - 1 Then Exit Sub
 
        Dim ID1 As String = DGV.Rows(R).Cells(0).Value.ToString
        Dim Nachname1 As String = DGV.Rows(R).Cells(1).Value.ToString
        Dim Vorname1 As String = DGV.Rows(R).Cells(2).Value.ToString
        Dim ID2 As String = DGV.Rows(R + 1).Cells(0).Value.ToString
        Dim Nachname2 As String = DGV.Rows(R + 1).Cells(1).Value.ToString
        Dim Vorname2 As String = DGV.Rows(R + 1).Cells(2).Value.ToString
 
        DGV.Rows(R + 1).Cells(0).Value = ID1.ToString
        DGV.Rows(R).Cells(0).Value = ID2.ToString
        DGV.Rows(R + 1).Cells(1).Value = Nachname1.ToString
        DGV.Rows(R).Cells(1).Value = Nachname2.ToString
        DGV.Rows(R + 1).Cells(2).Value = Vorname1.ToString
        DGV.Rows(R).Cells(2).Value = Vorname2.ToString
 
        DGV.Rows(R + 1).Selected = True
        DGV.Rows(R + 1).Cells(0).Selected = True
    End Sub
End Class

EALA FREYA FRESENA