Const pi = 3.1415926Dim i As SinglePrivate Sub Command1_Click()For i = 0 To 8 * pi Step 0.01Picture1.PSet (i * 200, 500 - 500 * Sin(i))NextEnd Sub Private Sub Command2_Click()For i = 0 To 8 * pi Step 0.01Picture1.PSet (i * 200, 1500 - 500 * Cos(i))NextEnd Sub Private Sub Command3_Click()For i = ...