20-02-13, 05:24 PM
يوجد Button كود
Timer كود
اريد عند الذهاب لى اخر صوره يرجع لى اول صوره
كود :
On Error Resume Next
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
كود :
On Error Resume Next
Dim file_name As String = ListBox1.SelectedItem
file_name = ListBox1.SelectedItem
Dim bm As New Bitmap(file_name)
PictureBox1.Image = bm