Private Sub aç_Click()
CommonDialog1.Action = 1
End Sub
Private Sub Command1_Click() 'ekle düğmesi
List1.AddItem Text1
List2.AddItem Combo1.Text
List3.AddItem Combo2.Text
Label5 = List1.ListCount
End Sub
Private Sub Command2_Click() 'sil düğmesi
If List1.ListIndex < 0 Then
MsgBox ("önce...