指定行の先頭文字位置を取得します。この関数はこの後のページで紹介するテクニックで使用します。取りあえず、適当に通り過ぎてください。

Private Const EM_LINEINDEX = &HBB　　'指定行の先頭の文字位置を取得する

'----------------------------------------------------------------
' 関数名 ： GetTopPosOfLine
' 機能 ： 指定された行の先頭文字位置を取得する
' 引数 ： (in) hEditbox … メモ帳のエディットボックスのハンドル
'　　　　　(in) LineIndex … 指定行
' 戻り値 ： 指定された行の先頭文字位置
'----------------------------------------------------------------
Public Function GetTopPosOfLine(ByVal hEditbox As Long, ByVal LineIndex As Long) As Long

　　GetTopPosOfLine = SendMessage(hEditbox, EM_LINEINDEX, LineIndex, ByVal 0&)

End Function

外部から使用する機会もあると思うので、Private でなく Public にしておきました。