Dim flag As Integer
Private Sub Cmd_Click(Index As Integer)
'  If Index =  ?  Then
      End
  Else
      '考生文件夹下的图片文件
      Image1.Picture = LoadPicture("yellow.ico")
      flag = Index
'      Timer1.Enabled =  ?
  End If
End Sub
Private Sub Timer1_Timer()
'    Select Case  ?
      Case 0
          Image1.Picture = LoadPicture("green.ico")
          Timer1.Enabled = False
      Case 1
          Image1.Picture = LoadPicture("red.ico")
          Timer1.Enabled = False
  End Select
End Sub