[ASUS2020]

السلام عليكم
جرب هذا الكود إن شاء الله يناسب طلبك
انشيء فورم جديد وضع عليه
Label1
label2
listbox1


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Label2.Text = Today
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
If Label2.Text = "08/12/41" Then
MsgBox(Label2.Text & " " & " العميل " & " " & ListBox1.Text & " " & " موعد القسط بتاريخ", MsgBoxStyle.Information)
End If
End Sub