*************************
Dim a(1 To 6), b(1 To 6), i(1 To 6), j(1 To 6), k, l, t, s As Integer
Private Sub Form_Load()
Command1.Caption = “Başla”
Command2.Caption = “Temzile”
Command3.Caption = “Çıkış”
End Sub
Private Sub Command1_Click()
List1.Clear
List2.Clear
List3.Clear
For k = 1 To 6
t: i(k) = InputBox(a(k), “1. Liste”)
If i(k) = “” Then GoTo t
List1.AddItem i(k)
Next
MsgBox “1. Liste Bitti.”, vbInformation, “1. Liste”
For l = 1 To 6
s: j(l) = InputBox(b(l), “2. Liste”)
If j(l) = “” Then GoTo s
List2.AddItem j(l)
Next
MsgBox “2. Liste Bitti.”, vbInformation, “2. Liste”
For k = 1 To 6
For l = 1 To 6
If i(k) = j(l) Then List3.AddItem i(k)
Next
Next
End Sub
Private Sub Command2_Click()
List1.Clear
List2.Clear
List3.Clear
End Sub
Private Sub Command3_Click()
End
End Sub
*************************
