ini salah satu contoh untuk membuat fungsi shape secara animasi dengan HScroll pada visual basic, sebenarnya ini simple aja, tergantung bagaimana kreasi kita untuk membuatnya..
oke kita langsung aja...
Siapkan 1 buah shape, 1 buah label dan 1 buah HScroll
dan masukan kode dibawah ini
Private Sub HScroll1_Change()
Label = HScroll1.Value
Label1.Caption = Str(Label)
Shape1.Width = 10 * Label1
End Sub
selesai..
semoga bermanfaat untuk kalian
jangan lupa commentnya,ok
