Private Sub Button_PASSWORD_VISIBLE_Click
If TextField_password.Text.IndexOf("π") > -1 Then
' Mostra la password originale
TextField_password.Text = TextField_password.Tag
Else
' Salva la password originale nel Tag
TextField_password.Tag = TextField_password.Text
Dim emojis() As String = Array As String("π","π","π€£","π
","π","π","π€","π","π","π")
Dim masked As String = ""
For i = 0 To TextField_password.Text.Length - 1
If i = 0 Then
masked = "π"
Else
masked = masked & emojis(Rnd(1, emojis.Length))
End If
Next
TextField_password.Text = masked
End If
End Sub