程序代码'新建窗体,添加command1,label1,hscroll1,timer1,picture1Constpi=3.1415926DimangleAsIntegerPrivateSubForm_Load()'调整空间尺寸,位置及初始参数Me.ScaleMode=3Me.Caption="曲柄滑块机构的演示"Me.Width=5000Me.Height=3500Picture1.ScaleMode=3Picture1.AutoRedraw=TruePicture1.Move0,0,Me.Sc