Private Sub Liste_SelectedIndexChanged(sender As Object, e As EventArgs) _
      Handles Liste.SelectedIndexChanged
        PrüfeBedingungenUmAKTIONFreizugeben()
    End Sub

    Private Sub Liste_DoubleClick(sender As Object, e As EventArgs) Handles _
      Liste.DoubleClick
        if Vorabprüfung = true then
           bt_Digitalisieren_Click(sender, e)
        endif
    End Sub

    Private Sub bt_Digitalisieren_Click(sender As Object, e As EventArgs)
        Throw New NotImplementedException
    End Sub

VB.net Einsteiger im Bereich AutoCAD (Topobase bzw. Infrastructure Administrator)