各位高手，请帮我做一个VB程序，谢谢谢！具体要求为“作出一个能在计算机中记录温度，压力等的控制面板”

以下是用于显示温度和压力(真空值)的棒图代码:
Option Explicit
Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
For i = 0 To 5
PitBangtu(i).Cls
Next i
'温度
PitBangtu(0).Line (0, 2117.5 - record_jmm(3) * 42.35 / 2)-(1095, 4235), vbRed, BF
PitBangtu(1).Line (0, 2117.5 - record_jmm(4) * 42.35 / 2)-(1095, 4235), vbRed, BF
PitBangtu(2).Line (0, 2117.5 - record_jmm(5) * 42.35 / 2)-(1095, 4235), vbRed, BF
PitBangtu(3).Line (0, 2117.5 - record_jmm(6) * 42.35 / 2)-(1095, 4235), vbRed, BF
PitBangtu(4).Line (0, 2117.5 - record_jmm(0) * 42.35 / 2)-(1095, 4235), vbRed, BF
'真空值
If Val(record_jmm(10)) < 1000 And Val(record_jmm(10)) >= 100 Then
PitBangtu(5).Line (0, 0 + (1000 - record_jmm(10)) * 1.174)-(1095, 4235), vbRed, BF
ElseIf Val(record_jmm(10)) < 100 And Val(record_jmm(10)) >= 10 Then
PitBangtu(5).Line (0, 1058.75 + (100 - record_jmm(10)) * 11.744)-(1095, 4235), vbRed, BF