Menampilkan Vertical ScrollBar Pada TextBox Pada Saat Runtime

Di bawah ini merupakan fungsi 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 di atas:

Public Sub Command1_Click()   
     ShowScroll Text1, True 
End Sub