Form1.Designer.vb

@@ -31,7 +31,7 @@ Partial Class Form1
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(107, 39)
         Me.Button1.TabIndex = 0
-        Me.Button1.Text = "OK"
+        Me.Button1.Text = "Action1"
         Me.Button1.UseVisualStyleBackColor = True
         '
         'Form1

Form1.vb

@@ -1,3 +1,5 @@
 Public Class Form1
-
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        MessageBox.Show("hier käme Action1")
+    End Sub
 End Class