主题：全局代码中出现这样的错误

---------------------------
错误
---------------------------
编译错误:语句不能出现在方法体外。

错误代码：For Each f As String In io.Directory.GetFiles(ProjectPath & "images\icons\")
---------------------------
确定  
---------------------------
For Each f As String In io.Directory.GetFiles(ProjectPath & "images\icons\")
Dim ifo As New FileInfo(f)
Public Ifo.Extension.Replace(".","") As Image=GetImage(f)
Next

全局代码那里，只能定义变量和方法。

代码要写在sub或function里面。