Sub kanan()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft 10
End Sub

Sub kiri()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft -10
End Sub

Sub atas()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementTop 10
End Sub

Sub bawah()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementTop -10
End Sub

Sub satu()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 1
End Sub

Sub dua()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 2
End Sub
Sub tiga()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 3
End Sub

Sub putar1()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementRotation 30
End Sub

Sub putar2()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementRotation -30
End Sub

Sub tampil()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).Visible = msoTrue
End Sub

Sub sembunyi()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).Visible = msoFalse
End Sub
Sub balik()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).Flip msoFlipHorizontal
End Sub
Sub kecepatan1()
ActivePresentation.Slides(2).Shapes(“nilai”).TextFrame.TextRange.Text = ActivePresentation.Slides(2).Shapes(“nilai”).TextFrame.TextRange.Text + 1
End Sub
Sub kecepatan2()
ActivePresentation.Slides(2).Shapes(“nilai”).TextFrame.TextRange.Text = ActivePresentation.Slides(2).Shapes(“nilai”).TextFrame.TextRange.Text – 1
End Sub
Sub tampil1()
ActivePresentation.Slides(2).Shapes(“segitiga1”).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(“segitiga2”).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(“segitiga3”).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(“segitiga4”).Visible = msoFalse
End Sub
Sub tampil2()
ActivePresentation.Slides(2).Shapes(“segitiga1”).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(“segitiga2”).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(“segitiga3”).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(“segitiga4”).Visible = msoTrue
End Sub
Sub satu1()
ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text = 2
End Sub
Sub dua1()
ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text = 3
End Sub
Sub tiga1()
ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text = 4
End Sub
Sub kanan1()
ActivePresentation.Slides(2).Shapes(“segitiga” & ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text).IncrementLeft ActivePresentation.Slides(2).Shapes(“nilai”).TextFrame.TextRange.Text
End Sub
Sub kiri1()
ActivePresentation.Slides(2).Shapes(“segitiga” & ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text).IncrementLeft -ActivePresentation.Slides(2).Shapes(“nilai”).TextFrame.TextRange.Text
End Sub
Sub atas1()
ActivePresentation.Slides(2).Shapes(“segitiga” & ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text).IncrementTop -ActivePresentation.Slides(2).Shapes(“nilai”).TextFrame.TextRange.Text
End Sub
Sub bawah1()
ActivePresentation.Slides(2).Shapes(“segitiga” & ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text).IncrementTop ActivePresentation.Slides(2).Shapes(“nilai”).TextFrame.TextRange.Text
End Sub

Sub putar3()
ActivePresentation.Slides(2).Shapes(“segitiga” & ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text).IncrementRotation 30
End Sub
Sub putar4()
ActivePresentation.Slides(2).Shapes(“segitiga” & ActivePresentation.Slides(2).Shapes(“kontrol1”).TextFrame.TextRange.Text).IncrementRotation -30
End Sub
Sub kembali()
ActivePresentation.Slides(2).Shapes(“segitiga2”).IncrementRotation 180
ActivePresentation.Slides(2).Shapes(“segitiga3”).IncrementRotation 180
ActivePresentation.Slides(2).Shapes(“segitiga2”).Left = ActivePresentation.Slides(2).Shapes(“segitiga6”).Left
ActivePresentation.Slides(2).Shapes(“segitiga2”).Top = ActivePresentation.Slides(2).Shapes(“segitiga6”).Top
ActivePresentation.Slides(2).Shapes(“segitiga3”).Left = ActivePresentation.Slides(2).Shapes(“segitiga5”).Left
ActivePresentation.Slides(2).Shapes(“segitiga3”).Top = ActivePresentation.Slides(2).Shapes(“segitiga5”).Top

End Sub