Public Class Form1

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Dim nomor As Integer = 0
Dim asean As String
Do While nomor < 9
nomor += 1
If nomor = 1 Then
asean = "Indonesia"
ElseIf nomor = 2 Then
asean = "Malaysia"
ElseIf nomor = 3 Then
asean = "Singapura"
ElseIf nomor = 4 Then
asean = "Thailand"
ElseIf nomor = 5 Then
asean = "Philipina"
ElseIf nomor = 6 Then
asean = "Brunei Darussalam"
ElseIf nomor = 7 Then
asean = "Vietnam"
ElseIf nomor = 8 Then
asean = "Kamboja"
Else
asean = "Timor Leste"
End If
ListBox1.Items.Add(asean)
Loop
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
Dim nasia As Integer
Dim asia As String
While nasia < 9
nasia += 1
Select Case nasia
Case Is = 1
asia = "China"
Case Is = 2
asia = "Jepang"
Case Is = 3
asia = "Korea Selatan"
Case Is = 4
asia = "India"
Case Is = 5
asia = "Pakistan"
Case Is = 6
asia = "Bangladesh"
Case Is = 7
asia = "Srilanka"
Case Is = 8
asia = "Nepal"
Case Else
asia = "Australia"
End Select
ListBox2.Items.Add(asia)
End While
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
Dim ntimteng As Integer = 0
Dim timteng As String
For ntimteng = 1 To 7 Step 1
Select Case ntimteng
Case Is = 1
timteng = "Saudi Arabia"
Case Is = 2
timteng = "Irak"
Case Is = 3
timteng = "Iran"
Case Is = 4
timteng = "Mesir"
Case Is = 5
timteng = "Palestina"
Case Is = 6
timteng = "Israel"
Case Else
timteng = "Emirat Arab"
End Select
ListBox3.Items.Add(timteng)
Next

End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
Dim neropa As String
Dim eropa() As String = {" Belanda ", " Denmark ", " Inggris", "Italia", "Jerman Barat", "Perancis", "Portugal", "Spanyol", "Swiss", "Turki"}
For Each neropa In eropa
ListBox4.Items.Add(neropa)
Next
End Sub
End Class