[VB6] - como posso mostrar as barras de deslocamento na RichTextBox?

[cambalinho 0]

eu meti a RichTextBox no Usercontrol juntamente com 1 picturebox. eu tenho a propriedade da scrollbar para both. mas as barras de deslocamento nao sao mostradas. alguem me falou para alterar o RightMargin, mas alem de o copiar e funcionar, nao consigo entender o que fizeram:(

alguem me pode explicar isto?

[cambalinho 0]

ja consegui o fazer:

'num modulo
Private Const WM_USER = &H400

Private Const EM_SETTARGETDEVICE = (WM_USER + 72)
Private 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 Sub WordWrap(ControlHandle As Long, ActivateWordWrap As Boolean)
    If ActivateWordWrap = False Then
        SendMessage ControlHandle, EM_SETTARGETDEVICE, 0, ByVal -1&
    Else
        SendMessage ControlHandle, EM_SETTARGETDEVICE, 0, ByVal 0&
    End If
End Sub


'no form
Private Sub Command1_Click()
    WordWrap RichTextBox1.hwnd, False
End Sub

este codigo nao foi testado noutro controlo, mas funciona;)

obrigado