

With Scriptlet1
.Visible=False
.Width=.Width-200
.Width=.Width+200
.Visible=True
End With
ChatRTF.SelStart = intStart
ChatRTF.SelLength = 2
ChatRTF.selRTF = smile.TextRTF
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1