سیاوش جان مرسی من درست کردم
به غیر از case 87 باید کد زیر هم جای گذین بشه
Private Sub YmCrypt_RecvToken(ByVal Y_CookiePart As String, ByVal T_CookiePart As String, ByVal B_CookiePart As String, ByVal LoginHash As String)
sckYahoo.sendData Login(tUser.Text, 0, LoginHash, Y_CookiePart, T_CookiePart, B_CookiePart, False)