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