Public Sub jumptoend
DoEvents
sv.ScrollToNow(5000000)
DoEvents
sv.SendToBack
End Sub
Sub SV_ScrollChanged(Position As Int)
Dim espaciopix As Int = 150dip
If sv.Height + Position + espaciopix >= sv.Panel.Height Then
'Log("bottom")
finalchat=True
CallSubDelayed2(CallBack,"showicondown",False)
Else
finalchat=False
CallSubDelayed2(CallBack,"showicondown",True)
End If
End Sub