[عبدالكريم برشدان]

تم حل المشكلة بهذا الكود

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim startTime As New DateTime(2024, 1, 1, 8, 0, 0) 'Start time: 8:00 AM
Dim endTime As New DateTime(2024, 1, 1, 12, 0, 0) 'End time: 12:00 PM
Dim currentTime As DateTime = startTime

While currentTime <= endTime
ListBox1.Items.Add(currentTime.ToString("hh:mm tt"))
currentTime = currentTime.AddMinutes(30)
End While

End Sub