|
Ľubo, prosím. Chvála patrí inému. Dúfam, že sa neurazí
Imports System.Runtime.InteropServices
Public Class Form1
Private Const SBS_VERT = 1
<DllImport("User32.dll")> Public Shared Function GetScrollPos ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer
End Function
Private Sub RichTextBox1_VScroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.VScroll
Dim VScrollPosition As Integer = GetScrollPos(RichTextBox1.Handle, SBS_VERT)
Label1.Text = VScrollPosition
End Sub
End Class
|