Private Sub Command1_Click()If Len(Dir("C:\notelist.ico")) = 0 Then Picture1.Picture = LoadPicture("C:\note.ico") ElseMsgBox "no existe el icono en la carpeta"End IfEnd Sub