Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        KeyBox.Text = ""
        NumberCage.Enabled = True
        If KeyBox.Text.Length < 25 Then
            Button1.Enabled = False
        Else
            If KeyBox.Text.Length > 25 Then
                Button1.Enabled = True
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Clipboard.SetText(KeyBox.Text)
        Dim sClipboard As String = Clipboard.GetText
        If KeyBox.Text.Length < 25 Then
            Button2.Enabled = False
        Else
            If KeyBox.Text.Length > 25 Then
                Button2.Enabled = True
            End If
        End If

    End Sub