Public Sub Profile_MigrateAnonymous(ByVal sender As Object, ByVal e As ProfileMigrateEventArgs)

      Dim anonymousProfile As ProfileCommon = Profile.GetProfile(e.AnonymousID)
      Profile.LastVisited = anonymousProfile.LastVisited

End Sub
