problem with implementing class by Interface

See more:

.NET3.5

.NET

Dear Friends,
I am working with a .net remoting project. In my soution, i have the following code in three
projects. The problem is, i could not get value of LogInSuccessfull variable.

Public Interface MyInterface
      Sub TryToLogIn(ByVal UserName As String, ByVal UserPassword As String)
      ReadOnly Property LogInSuccessfull() As Boolean
   End Interface


   Imports System.Runtime.Remoting
   Imports ClassInterfaces

   Public Class ZoneLogIn
       Inherits MarshalByRefObject
       Implements ClassInterfaces.MyInterface

        Private mLogInSuccesfull As Boolean

        Public ReadOnly Property LogInSuccessfull() As Boolean Implements ClassInterfaces.MyInterface.LogInSuccessfull
          Get
             return mLogInSuccesfull
          End Get
       End Property

       Public Sub TryToLogIn(ByVal UserName As String, ByVal UserPassword As String) Implements  ClassInterfaces.MyInterface.TryToLogIn
         mLogInSuccesfull =true
         Console.WriteLine(mErrorMsg)
       End Sub

   End Class


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim test As ClassInterfaces.MyInterface
       test = CType(Activator.GetObject(GetType(ClassInterfaces.MyInterface), "tcp://172.10.1.2:49341/ZoneLogIn.rem"), ClassInterfaces.MyInterface)
       test.TryToLogIn("test", "1234")

       MsgBox(test.LogInSuccessfull)
   End Sub

Would you help me what i am missing in the above code?
Thanking you in advance.

Regards
SKPaul