SQL-Abfragen in Models verschoben

User Model neu

EnvelopeGenerator.Form/frmMain.vb

@@ -73,7 +73,7 @@ Public Class frmMain
         End Try
     End Function
 
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateEnvelope.ItemClick
+    Private Sub btnCreateEnvelope_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateEnvelope.ItemClick
         Dim oForm As New frmEnvelopeEditor() With {.State = State}
         oForm.ShowDialog()
     End Sub
@@ -99,7 +99,4 @@ Public Class frmMain
         End If
     End Sub
 
-    Private Sub RibbonControl_Click(sender As Object, e As EventArgs) Handles RibbonControl.Click
-
-    End Sub
 End Class