Simulasi Bahan Ajar, English For Childern

Code:
Private Sub cmdarti_Click()
If Text1 = "Tiger" Then
Text2 = "Harimau"
ElseIf Text1 = "Cow" Then
Text2 = "Sapi"
ElseIf Text1 = "Dog" Then
Text2 = "Anjing"
ElseIf Text1 = "Lion" Then
Text2 = "Singa"
ElseIf Text1 = "Pig" Then
Text2 = "Babi"
ElseIf Text1 = "Mosquito" Then
Text2 = "Nyamuk"
sound.URL = "D:\Teknik Pemrograman(tugas)\Nyamok.wav"
ElseIf Text1 = "Cock" Then
Text2 = "Ayam"
ElseIf Text1 = "Elephant" Then
Text2 = "Gajah"
ElseIf Text1 = "Cat" Then
Text2 = "Kucing"
sound.URL = "D:\Teknik Pemrograman(tugas)\Cat Baby Sms.wav"
ElseIf Text1 = "Goat" Then
Text2 = "Kambing"
sound.URL = "D:\Teknik Pemrograman(tugas)\Kambing.wav"
ElseIf Text1 = "Duck" Then
Text2 = "bebek"
ElseIf Text1 = "Monkey" Then
Text2 = "Monyet"
End If
End Sub

Private Sub List1_Click()
If List1 = "1. Cow" Then
Text4 = "Sapi"
ElseIf List1 = "2. Cat" Then
Text4 = "Kucing"
ElseIf List1 = "3. Dog" Then
Text4 = "Anjing"
ElseIf List1 = "4. Pig" Then
Text4 = "Babi"
ElseIf List1 = "5. Mosquito" Then
Text4 = "Nyamuk"
ElseIf List1 = "6. Duck" Then
Text4 = "Bebek"
ElseIf List1 = "7. Goat" Then
Text4 = "Kambing"
ElseIf List1 = "8. Lion" Then
Text4 = "Singa"
ElseIf List1 = "9. Elephant" Then
Text4 = "Gajah"
ElseIf List1 = "10. Cock" Then
Text4 = "Ayam"
ElseIf List1 = "11. Tiger" Then
Text4 = "Harimau"
ElseIf List1 = "12. Monkey" Then
Text4 = "Monyet"
End If
End Sub


Private Sub cmdtiger_Click()
Picture1 = harimau
If harimau Then
Text3 = "Harimau"
End If
End Sub
Private Sub cmdcock_Click()
Picture1 = ayam
If ayam Then
Text3 = "Ayam"
End If
End Sub
Private Sub cmdcow_Click()
Picture1 = sapi
If sapi Then
Text3 = "Sapi"
End If
End Sub
Private Sub cmdlion_Click()
Picture1 = singa
If singa Then
Text3 = "Singa"
End If
End Sub
Private Sub cmddog_Click()
Picture1 = anjing
If anjing Then
Text3 = "Anjing"
End If
End Sub
Private Sub cmdduck_Click()
Picture1 = bebek
If bebek Then
Text3 = "Bebek"
End If
End Sub
Private Sub cmdgoat_Click()
Picture1 = kambing
If kambing Then
Text3 = "Kambing"
End If
End Sub
Private Sub cmdmosquito_Click()
Picture1 = nyamuk
If nyamuk Then
Text3 = "Nyamuk"
End If
End Sub
Private Sub cmdmonkey_Click()
Picture1 = monyet
If monyet Then
Text3 = "Monyet"
End If
End Sub
Private Sub cmdpig_Click()
Picture1 = babi
If babi Then
Text3 = "Babi"
End If
End Sub
Private Sub cmdcat_Click()
Picture1 = kucing
If kucing Then
Text3 = "Kucing"
End If
End Sub
Private Sub cmdelephant_Click()
Picture1 = gajah
If gajah Then
Text3 = "Gajah"
End If
End Sub
Private Sub harimau_Click()
If harimau Then
Text1 = "Tiger"
Text2.Text = ""
End If
End Sub
Private Sub sapi_Click()
If sapi Then
Text1 = "Cow"
Text2.Text = ""
End If
End Sub
Private Sub nyamuk_Click()
If nyamuk Then
Text1 = "Mosquito"
Text2.Text = ""
End If
End Sub
Private Sub babi_Click()
If babi Then
Text1 = "Pig"
Text2.Text = ""
End If
End Sub
Private Sub gajah_Click()
If gajah Then
Text1 = "Elephant"
Text2.Text = ""
End If
End Sub
Private Sub ayam_Click()
If ayam Then
Text1 = "Cock"
Text2.Text = ""
End If
End Sub
Private Sub singa_Click()
If singa Then
Text1 = "Lion"
Text2.Text = ""
End If
End Sub
Private Sub kucing_Click()
If kucing Then
Text1 = "Cat"
Text2.Text = ""
End If
End Sub
Private Sub kambing_Click()
If kambing Then
Text1 = "Goat"
Text2.Text = ""
End If
End Sub
Private Sub bebek_Click()
If bebek Then
Text1 = "Duck"
Text2.Text = ""
End If
End Sub
Private Sub monyet_Click()
If monyet Then
Text1 = "Monkey"
Text2.Text = ""
End If
End Sub
Private Sub anjing_Click()
If anjing Then
Text1 = "Dog"
Text2.Text = ""
End If
End Sub
Private Sub cmdexit_Click()
End
End Sub