Private Sub LoadMemberFormByName(strFullName AS String)
        Dim strNames() AS String
        ClearScreenControls(grpMemberInfo)
        strNames = strFullName.Split(","c)
        objMembers.GetMemberbyName(TRIM(strNames(0)), TRIM(strNames(1)))
        LoadMemberData(objMembers.CurrentObject)
    END Sub


Private Sub LoadMemberData(aMember AS CMember)
        IF NOT aMember IS Nothing THEN
            WITH aMember
                txtID.Text = .MbrID
                txtLName.Text = .LName
                txtFName.Text = .FName
                txtAddress.Text = .Address
                txtCity.Text = .City
                txtState.Text = .State
                txtEmail.Text = .Email
                mskZip.Text = .Zip
                mskPhone.Text = .Phone
                dtpJoined.VALUE = .DateJoined
                cboProgram.SelectedIndex = cboProgram.FindStringExact(.ProgID)

            END WITH

        END IF
    END Sub