Private Sub IMAGE()
Dim FILE As String
FILE = App.Path 'path_name'
If Picture1.Picture = Empty Then
Open FILE For Binary Access Read As #1
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)