Auto Scroll Up n Bottom

Buat 2 Command Button, 1 Listbox, 1 textbox.

Masukkan souce ini ke dalam Form :Private Const SBBOTTOM As Long = 7 Private Const SBUP As Long = 6 Private Const WMVSCROLL As Long = &H115 Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long Public Sub ScrollToBottom(ByVal hWnd As Long) SendMessage hWnd, WMVSCROLL, SBBOTTOM, ByVal 0& End Sub Public Sub ScrollToUp(ByVal hWnd As Long) SendMessage hWnd, WMVSCROLL, SBUP, ByVal 0& End Sub Private Sub Command1_Click() If Command1.Caption = "Scroll To Bottom" Then ScrollToBottom List1.hWnd Command1.Caption = "Scroll To Up" Else Command1.Caption = "Scroll To Bottom" ScrollToUp List1.hWnd End If End Sub Private Sub Command2_Click() If Command2.Caption = "Scroll To Bottom" Then ScrollToBottom Text1.hWnd Command2.Caption = "Scroll To Up" Else Command2.Caption = "Scroll To Bottom" ScrollToUp Text1.hWnd End If End Sub Private Sub Form_Load() Command1.Caption = "Scroll To Bottom" Command2.Caption = "Scroll To Bottom" Form1.Caption = "Auto Scroll" List1.AddItem "1" List1.AddItem "2" List1.AddItem "3" Text1.Text = "1" & vbNewLine & "2" & vbNewLine & "3" End Sub