VB 万年历(带农历)类+Demo.rar

VB万年历 PrivateSubForm_Load() Me.Text1.Font.Name="宋体" Me.Text1.Font.Size=9 EndSub PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger) IfUnloadMode=0Then Cancel=1 EndIf EndSub PrivateSubForm_Resize() Me.Text1.Move0,0,Me.ScaleWidth,