您再仔细的检查一下代码,我刚才用以下测试,通过。
坚信:不是VB的问题!
您把下面代码拷贝过去,看看。Private Sub Image1_Click()Image1.Picture = LoadPicture("c:\too.ico")End Sub