Private Sub BearbeitenToolStripMenuItem_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles BearbeitenToolStripMenuItem.Click
        ' Sind überhaupt Items vorhanden?
        If lvwTiere.Items.Count > 0 Then
        frmhinzufügen.Show()
        ' Befehle.....
        Else
            MsgBox(Prompt:=("Liste ist leer!"))
        End If
    End Sub

BearbeitenToolStripMenuItem_Click

fg viperbone