Control RichTextBox en vb

Puede consultar el siguiente código:

private const int WM_VSCROLL = 0x115;

// Constantes de la barra de desplazamiento

private const SB_HORZ = 0; p>

const privada int SB_VERT = 1;

const privada int SB_CTL = 2

const privada SB_BOTH = 3; / Comandos de desplazamiento

Constante privada int SB_LINEUP = 0;

Constante privada int SB_LINELEFT = 0

Constante privada int SB_LINEDOWN = 1; p > Constante privada int SB_LINERIGHT = 1;

Constante privada int SB_PAGEUP = 2

const privada SB_PAGELEFT = 2; > const privada int SB_PAGEDOWN = 3;

const privada int SB_PAGERIGHT = 3;

const privada int SB_THUMBPOSITION = 4

const privada SB_THUMBTRACK = 5;

const privada int SB_TOP = 6

Constante privada int SB_LEFT = 6

Constante privada int SB_BOTTOM = 7; Constante int SB_RIGHT = 7;

Constante privada int SB_ENDSCROLL = 8;

Constante privada int WM_PAINT = 0x000F;

[System.Runtime. InteropServices] = 0x000F;

[System.Runtime.InteropServices] = 0x000F.

[System.Runtime.InteropServices.DllImport("user32.dll")]

public static extern bool ScrollWindow(IntPtr hWnd, int XAmount, int YAmount, ref Rectángulo lpRect, ref Rectángulo lpClipRect

[System.Runtime.InteropServices.DllImport("user32.dll")]

public static extern int SetScrollPos(IntPtr hwnd, int nBar, int nPos, bool bRedraw

[System.Runtime.Runtime.InteropServi);

ces.DllImport("user32.dll")]

public static extern bool UpdateWindow(IntPtr hWnd

[System.dll")]

public static extern int SendMessage(IntPtr hwnd, int wMsg, int wParam, int lParam);

private void SelfSrcoll(IntPtr handle)

{

SendMessage(handle) , WM_VSCROLL, SB_LINEDOWN, 0);

//UpdateWindow(handle);

}

Private void SelfSrcoll(IntPtr handle)

Private void button3_Click (remitente del objeto, System.EventArgs e)

{

SelfSrcoll(this.richTextBox1.Handle

}

);