关于image控件加载列表框图片的问题

Private Sub Timer1_Timer()
If tmd < 3 Then
Image1.Picture = LoadPicture(Form1.List1.List(b))
If b <= Form1.List1.ListCount - 1 Then
b = b + 1
Else
If Form1.Check1.Value = vbChecked Then
b = b - 1
Else
Unload Me
End If
End If
End If
tmd = tmd + 3
SetLayeredWindowAttributes hwnd, 0, tmd, LWA_ALPHA
If tmd = 255 Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End SubPrivate Sub Timer2_Timer()
Timer3.Enabled = True
End SubPrivate Sub Timer3_Timer()
tmd = tmd - 3
SetLayeredWindowAttributes hwnd, 0, tmd, LWA_ALPHA
If tmd = 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
End If
End Sub
我想用在form2的image1加载form1中list1的路径里的图片,像上面这样写,但是每次显示的依然是第一张图片,即index为0的那个,该如何修改,请大神解答