主题：[求助]根据记录中状态不同，如何设置不同的动态图？

在窗口中，有几张小球的图片，能否根据记录中状态，让其动态显示？如：状态正常，则小球图片为绿色，不停的闪烁。状态故障，则小球图片为红色，不停的闪烁。起到一目了然的提醒功能，谢谢！

 timertick事件

 

static idx As Integer = 0
Dim r As Row = Tables("表a").current
If r IsNot Nothing Then
    If r("第一列") = "" Then
        If idx = 0 Then
            e.Form.Controls("PictureBox1").image = getimage("d:\test.ico")
            idx = 1
        Else
            e.Form.Controls("PictureBox1").image = Nothing
            idx = 0
        End If
    End If
End If

 

http://www.foxtable.com/webhelp/scr/1322.htm

 

请问图片的路径可以如何写成在项目文件的images文件夹中？

e.Form.Controls("PictureBox1").image = getimage(ProjectPath & "Images/test.ico")