求用vb编写一个画齿轮的程序，只要求画一个简单的齿轮，没有转动等其他要求。求源代码和程序一起。

Const PI As Single = 3.1415926

Dim t As Single, r As Single

Private Sub Command1_Click()

t = PI / 20

r = Me.Picture1.ScaleHeight / 2 * 4 / 5

Me.Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Static i As Long

Me.Text1.Text = i + 1

'Me.Picture1.PSet (Me.Picture1.ScaleWidth / 2 + r * Cos(i * t), Me.Picture1.ScaleHeight / 2 - r * Sin(i * t)), vbRed

'Me.Picture1.PSet (Me.Picture1.ScaleWidth / 2 + (r + 100) * Cos(i * t + t / 2), Me.Picture1.ScaleHeight / 2 - (r + 100) * Sin(i * t + t / 2)), vbRed

Me.Picture1.Line (Me.Picture1.ScaleWidth / 2 + r * Cos(i * t), Me.Picture1.ScaleHeight / 2 - r * Sin(i * t))-(Me.Picture1.ScaleWidth / 2 + (r + 100) * Cos(i * t + t / 2), Me.Picture1.ScaleHeight / 2 - (r + 100) * Sin(i * t + t / 2))

Me.Picture1.Line (Me.Picture1.ScaleWidth / 2 + (r + 100) * Cos(i * t + t / 2), Me.Picture1.ScaleHeight / 2 - (r + 100) * Sin(i * t + t / 2))-(Me.Picture1.ScaleWidth / 2 + r * Cos((i + 1) * t), Me.Picture1.ScaleHeight / 2 - r * Sin((i + 1) * t))

i = i + 1

If i >2 * PI / t - 1 Then Me.Timer1.Interval = 0

End Sub

首先你在VB中建好窗口，然后单击漏宴“工程—引用——枣禅”选择

“SolidWorks exposed Type Libraries For add-in Use”(SolidWorks插件库文件)、“SolidWorks 2007 Type Libray”（SolidWorks库文件、和“SolidWorks Consant Type library”（SolidWorks常数库）返岩银，

（可能版本不同会有区别）

然后将宏文件中的 Set swApp = Application.SldWorks

改为

Set swApp = CreateObject("sldworks.application")

其余的修改自己弄。该删的删掉

---