我算是资深的VB程序员了,这个绝对是骗人的。一共就只有几行代码,而且没有一行是有用的。
Private Sub Command1_Click()
Form1.Choice = 1
Hide
Form1.Show
End Sub
Private Sub HScroll1_Change()
Label1 = "现金:" & HScroll1.Value
Label2 = "存款:" & HScroll1.Max - HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
HScroll1_