...DateDiff(DateInterval.WeekOfYear, today, future)
start = DateDiff(DateInterval.WeekOfYear, mbegin, today).tostring
DrawPhase(start * 25, 65, diff * 25) 'Draws the line at points for length of weeks; not to scale.
End Sub
Public Sub DrawPhase(ByVal x As Integer...