Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DilanDataSet.dilan' table. You can move, or remove it, as needed.
        'Dim dbPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\dilansoft\"

        'AppDomain.CurrentDomain.SetData("DataDirectory", dbPath)
        'MsgBox(Assembly.GetExecutingAssembly().GetManifestResourceNames())

        If My.Computer.FileSystem.FileExists("dilan.accdb") Then
            'MsgBox("db found")
            Console.Write("db found")

        Else
            MsgBox("database not found : dilan.accdb -- exiting ")
            'Application.Exit()
            'End

            'SaveEmbeddedResourcesFile("sh.png", "C:\Users\User\Desktop\dilan\toxit\image.png")
            'SaveFileFromResources(My.Resources."dilan.accdb")
        End If
        Me.DilanTableAdapter.Fill(Me.DilanDataSet.dilan)
        Timer1.Enabled = True

    End Sub