Sistema de Termos de Serviço

Name : chkTermos
Caption: Eu os termos de serviço

        ' Prevent high ascii chars
        For I = 1 To Len(Msg)
            If Asc(Mid(Msg, I, 1)) < 32 Or Asc(Mid(Msg, I, 1)) > 126 Then
                Call MsgBox("Você não pode usar acentos na sua conta.", vbOKOnly, GAME_NAME)
                txtName.Text = vbNullString
                Exit Sub
            End If
        Next I

If chkTermos.Value = Unchecked Then
Call MsgBox("Você não aceitou os termos de serviço!")
Exit Sub
End If

        Case MENU_STATE_NEWACCOUNT
            frmNewAccount.Visible = False
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando informações da nova conta...")
                Call SendNewAccount(frmNewAccount.txtName.Text, frmNewAccount.txtPassword.Text)
            End If

        Case MENU_STATE_NEWACCOUNT
            frmNewAccount.chkTermos.Value = Checked
            frmNewAccount.Visible = False
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando informações da nova conta...")
                Call SendNewAccount(frmNewAccount.txtName.Text, frmNewAccount.txtPassword.Text)
            End If