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