动态设置vb表单的背景图像

Question

我正在尝试动态设置表单的背景图片（在按钮的点击事件中） 当我停止部署应用程序并重新启动以部署它时，表单的背景图像将被删除 我知道在应用程序没有停止之前，背景图像将保持不变 但是，我想永久设置它，就像我们使用资源设置或使用表单的背景图像属性或任何其他控件设置。

代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If vbOK = FolderBrowserDialog2.ShowDialog() Then
        TextBox1.Text = FolderBrowserDialog2.SelectedPath
    End If
End Sub


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim id As String = "bg"
    Dim folder As String = TextBox1.Text
    If TextBox1.Text = "" Then
        MsgBox("Please Select Image Path.", MsgBoxStyle.Information, "Message")
    Else
        Dim filename As String = System.IO.Path.Combine(folder, id & ".jpg")
        Form1.BackgroundImage = Image.FromFile(filename)
    End If
End Sub

请注意＆＃34; bg＆＃34;是图像的名称 我知道这段代码很糟糕，我正在努力改进它 但是，我的目标是动态设置背景图像 怎么做？