VB6 Code - Vertical Scrollbar Textbox Pada Saat Runtime

Di bawah ini merupakan fungsi VB6 untuk menampilkan Vertical ScrollBar pada TextBox.

Option Explicit

Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Public Function ShowScroll(obj As Control, bShow As Boolean)
    ShowScrollBar obj.hwnd, 1, bShow
    obj.Refresh
End Function

Contoh penggunaan kode VB6 di atas:

Public Sub Command1_Click()
    ShowScroll Text1, True
End Sub