Problemas con el Clipboar y SendMessage en windows 98

PointView
08 de Noviembre del 2005
Hola estoy usando la function SendMessage para unir varior textos RFT que estan en una base de datos, todo va a un solo control richtText, la unica forma que encontre para unir varios rtf, el temas es que en w2k, xp, w2003 funciona pero en windows 98 no les paso la function para ver que encuentran, gracias.

Public Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_PASTE = &H302


do while not ors.eof
sTexto = trim(ors!micamportf)
unirTextos ( sTexto + vbCrLf)
ors.movenext
loop

function unirTextos(sTexto)
Clipboard.Clear
Clipboard.SetText sTexto, vbCFRTF
SendMessage Me.richtctrol.Hwnd, WM_PASTE, 0, 0
end function