初始化

BLV_Studio/UCreatelabel.vb

@@ -0,0 +1,22 @@
+Public Class UCreatelabel
+
+    Public txtcolor As Color =Color.Black 
+    Public txt As String 
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click, Button10.Click, Button1.Click
+        Dim brn As Button =sender 
+        txtcolor=brn.BackColor 
+    End Sub
+
+    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
+        
+        If String.IsNullOrEmpty (TextBox1.Text) Then 
+            MsgBox ("标签不可为空")
+            return
+        End If
+        txt= TextBox1.Text 
+        
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+    End Sub
+
+   
+End Class