VB高手进！！急！！！

下面的程序是设计三角函数的代码，但无法自动演示，请问错误在哪？？？
Option Explicit
Const dw As Integer = 400
Const picw = 9000
Const pich = 7000
Dim a As Integer
Dim w As Integer
Dim f As Single
Public Sub drawzbz()
pic.ForeColor = QBColor(0)
pic.Line (picw / 2, 0)-(picw / 2, pich)
pic.Line (0, pich / 2)-(picw, pich / 2)

End Sub

Private Sub csza_Change()
a = csza.Value
csa.Caption = "A=" + Str(a)

End Sub

Private Sub cszf_Change()
f = cszf.Value
csf.Caption = "f=" + Str(f)
End Sub

Private Sub cszw_Change()
w = cszw.Value
csw.Caption = "w=" + Str(w)

End Sub

Private Sub Form_Load()
Form1.Show
Call drawzbz
selec.BackColor = QBColor(0)
a = 1
w = 1
f = 0

End Sub
Public Sub drawhs(a As Integer, w As Integer, f As Single, c As Integer)
Dim sd As Single
Dim i As Single
Dim

VB高手进！！急！！！ VB高手进`````````````````````````急```````` vb高手进！！！！急急急！！！ VB编程，高手进，急！ 急！！！！！！！VB高手进啊 VB编程高手进 急~~~~~~~~~~ VB编程高手进 ~~~急 VB高手们进 急~~~~~~~~~~~ vb编程高手进 急~ vb高手进啊,急