VB中为何我的坐标轴没有箭头和刻度,我要的是时间温度坐标轴

Private Sub Command2_Click()

Dim x As Integer

Dim y As Integer

Picture2.Scale (-50, 70)-(1600, -5) '定义坐标系

Picture2.DrawWidth = 1.2

'画x轴坐标系

Picture2.Line (0, 0)-(1550, 0), vbBlue

Picture2.ForeColor = vbBlue

Picture2.Print "h"

'画温度坐标点（以10度为1个单位）

Picture2.DrawWidth = 4

For y = 0 To 60 Step 10

Picture2.PSet (0, y)

Next y

'画温度坐标点（以1度为1个单位）

Picture2.DrawWidth = 1.2

For y = 1 To 59

Picture2.PSet (0, y)

Next y

'画y轴坐标系

Picture2.Line (0, 0)-(0, 65), vbBlue

Picture2.ForeColor = vbBlue

Picture2.Print "℃"

'画时间坐标点（以1小时为1个单位）

For x = 0 To 1440 Step 60

Picture1.PSet (x, 0)

Next x

'画时间坐标点（以6小时为1个单位）

Picture2.DrawWidth = 4

Picture2.PSet (360, 0)

Picture2.PSet (720, 0)

Picture2.PSet (1080, 0)

Picture2.PSet (1440, 0)

'指定位置显示原点o

Picture2.CurrentX = -30

Picture2.CurrentY = -1

Picture2.Print "0"

End Sub