Share My Creation [Project Template] User Login Client [B4X]

Sub BtnEdit_Click
    If BtnEdit.Text = "E D I T" Then
        BtnEdit.Text = "U P D A T E"
        BtnCancel.Visible = True
        txtUserName.Text = lblUserName.Text
        txtUserLocation.Text = lblUserLocation.Text
        lblUserName.Visible = False
        lblUserLocation.Visible = False
        txtUserName.mBase.Visible = True
        txtUserLocation.mBase.Visible = True
    Else
        'BtnEdit.Text = "E D I T"
        If txtUserName.Text.Trim = "" Then
            xui.MsgboxAsync("Please enter your Name", "E R R O R")
            Return
        End If
        If txtUserLocation.Text.Trim = "" Then
            xui.MsgboxAsync("Please enter your Location", "E R R O R")
            Return
        End If
        UpdateProfile
    End If
End Sub