'[Visual Basic] Dim IMServer1 as new MessengerYouLike.IMSDK.IMServer If IMServer1.AdminUnBlockUser(TxtUsername.Text) then Response.Write("User Unlocked") end if