Public Class Form1
Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
Text = "单击演示"
BackgroundImage = Image.FromFile("C:\\Users\\zhour\\Downloads\\040a341eb8f8c123c03fd62f17c1eb45.jpg")
End Sub
Private Sub Form1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick
Text = "双击演示"
BackgroundImage = Nothing
End Sub
End Class
单击显示背景图片,双击清除背景图片。