Position dans un richtexbox.

Bonjour,

j'ai sur une form un richtextbox qui fait une hauteur X. Le texte à l'intérieur est bcp plus grand que la hauteur du richtextbox.
dans cette richtextbox je sélectionne des mot clefs. via le code. J'aimerai que cette sélection soit positionner en haut de la richtexbox. Pas en haut absolu mais en relatif par rapport à la partie visible. En fait faire un scroling automatique pour positionner la sélection en haut de la partie visible.

Quelqu'un aurait une idée?

Merci

le numéro de la ligne je peux aussi le récupérer via getlinefromchar. Ca c'est bon mais apres comment placer cette ligne .....
en Écrivant ça je m'aperçois que justement ça devrait le faire. si j'ai le numéro de la premiere ligne visible et le numéro de la ligne que je veux placer en 1er il me suffit de "déplacer" ma ligne jusqu'a ce que les 2 colles... Apres pour l'instant ma seule solutiuon pour faire se déplacement est de faire un selstart .. y a surezment plus propre???

Je vais voir du coté de EM_GETFIRSTVISIBLELINE 

Merci

Merci pour la piste ...

pour info et pour le scroll j'ai trouvé ça...
ça peut servir...

'In a module
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

Private Const EM_GETTHUMB = &HBE
Private Const SB_THUMBPOSITION = &H4
Private Const WM_VSCROLL = &H115

Public Function GetVerticalScrollPos(rtb As RichTextBox) As Long
  GetVerticalScrollPos = SendMessage(rtb.hwnd, EM_GETTHUMB, 0&, 0&)
End Function

Public Sub SetVerticalScrollPos(rtb As RichTextBox, Position As Long)
  SendMessage rtb.hwnd, WM_VSCROLL, SB_THUMBPOSITION + &H10000 * Position, Nothing
End Sub

'In your subroutine
Dim Vertical_Pos as Long

Vertical_Pos = GetVerticalScrollPos(rtb)
rtb.text = "blah blah blah"
Call SetVerticalScrollPos(rtb, Vertical_Pos)

content de voir qu'une simple piste t'a suffit ^^