Sub paneDayBuilderCanvas_Resize (Width As Double, Height As Double)
Dim timeFont As Font
timeFont = fx.CreateFont("Verdana,Tahoma,Arial", 32, True, False)
canvasDayDesigner.ClearRect(0, 0, Width, Height)
'Hours hash lines; Left is 85; Right is width - 35
Dim dblCanvas0000 As Double = 85
Dim dblCanvasX1Hr As Double
dblCanvasX1Hr = ((Width - 120.00) / 24.00)
canvasDayDesigner.DrawLine(dblCanvas0000, 20.00, dblCanvas0000, (Height - 50), fx.Colors.Gray, 2.00)
For i = 1 To 24
If i mod 6 = 0 Then
canvasDayDesigner.DrawLine(dblCanvas0000 + (dblCanvasX1Hr * i), 20.00, dblCanvas0000 + (dblCanvasX1Hr * i), (Height - 50), fx.Colors.Gray, 2.00)
Else
canvasDayDesigner.DrawLine(dblCanvas0000 + (dblCanvasX1Hr * i), 20.00, dblCanvas0000 + (dblCanvasX1Hr * i), (Height - 50), fx.Colors.ARGB(100, 140, 140, 140), 1.00)
canvasDayDesigner.DrawText(i, dblCanvas0000 + (dblCanvasX1Hr * i), Height - 25, timeFont, fx.Colors.Gray, "Left")
End If
Next
End Sub