Text Box is Not Accessing in Shared Function

[mgabaloch]

I'm Trying to use Shared Function to Display Output in TextBox, but when it is not displaying text, during Debug it shows that it has holding text , but i dont know why it is not showing text on Output
Here is it small code

friend shared withevents wslisten As Winsock_Orcas.Winsock      
protected sub page_Load()           
    session("me") =Me              
    Test2()          
end sub            

Protected Shared Sub TestClass(byval current as _Default)  
    current.TextBox2.Text = "BHB"   
End Sub         

Friend Shared Sub dataarrive( byval sender as object, byval e as winsock_orcas.winsockdataarrivaleventargs) handles wslisten.dataarival   
    TestClass(Session("me"))               
end sub

Thanks in Advance