Sub BtnFiles_action
If File.Exists(DirPath, "") = False Then File.MakeDir(DirPath, "")
'Find files. Select file to import
Private Image1 As Image
Private FileChooser1 As FileChooser
FileChooser1.Initialize
FileChooser1.Title = $"Saved Files"$
FileChooser1.InitialDirectory = DirPath
Filename1 = FileChooser1.ShowOpen(MainForm)
Filename1 = Filename1.Replace(DirPath, "")
If Filename1 <> "" Then
Image1.initialize(DirPath, Filename1)
FormLV.Initialize("", Image1.Width, Image1.Height)
FormLV.SetFormStyle("")
FormLV.Title = Filename1
FormLV.RootPane.Style = "-fx-background-image: url('" & File.GetUri(DirPath, Filename1) & "');"
FormLV.Show
Timer2.Initialize("Timer2",1000) 'Timer2_Tick FormLVResize = False
Timer2.Enabled = True
End If
End Sub
Sub Timer2_Tick
FormLV.Resizable = False
Timer2.Enabled = False
End Sub