Function cal_Click()
	'cal.Visible = False
	'cal.Row1 = cal.Row1 + 1
    'cal.Row2 = cal.Row2 + 1
    'cal.Col1 = cal.Col1 + 1
    'cal.Col2 = cal.Col2 + 1
	'cal.Top = cal.Top + 10
	'cal.Left = cal.Left + 10
	'cal.Height = cal.Height + 10
	cal.Width = cal.Width + 10
End Function