Impiccato 1.0 - frmimpiccato.frm


	Private Sub cmdnext_Click() Dim z As String Dim x As String z = LCase(txtnome.Text) Dim c 'Toglie gli spazi e le maiuscole For c = 1 To Len(txtnome) Dim spazio As String spazio = Mid(z, c, 1) x = x & Trim(spazio) Next c txtnome.Text = x frmgioco.Show frmimpiccato.Visible = False End Sub Private Sub txtnome_Change() If txtnome.Text = "" Then cmdnext.Enabled = False Else cmdnext.Enabled = True End If End Sub