Private Sub lvwAufgaben_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles lvwAufgaben.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim strVergleich As String
            strVergleich = strSpaltenauswahl
 
            strSpaltenauswahl = frmListenKonfig.GetRes(strAlleSpalten, _
              strSpaltenauswahl)
 
            If strVergleich <> strSpaltenauswahl Then 'Tabelle neu laden
                'DB mit lvw laden
                '......
            End If
        End If
    End Sub

    Private Sub lvwAufgaben_MouseClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles lvwAufgaben.MouseClick
        Dim Spalte, Zeile As Integer
 
        modDiverses.lvwKlickPositionErmitteln(lvwAufgaben, e, Spalte, Zeile)
        '......
 
    End Sub

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)