是要这样的代码?像这样的代码适合制作自定义漂亮的按钮


     Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
        Dim 背景图 = Button1.BackgroundImage
        If 背景图 Is Nothing Then
            Button1.BackgroundImage = Image.FromFile(System.Environment.CurrentDirectory + "\\熊猫.bmp")
            Button1.BackgroundImage.Tag = "熊猫"
            Button1.Text = ""
        Else
            Dim 景图 = Button1.BackgroundImage.Tag
            If 景图 = "熊猫" Then
                Button1.BackgroundImage = Image.FromFile(System.Environment.CurrentDirectory + "\\水滴.gif")
                Button1.BackgroundImage.Tag = "水滴"
            ElseIf 景图 = "水滴" Then
                Button1.BackgroundImage = Image.FromFile(System.Environment.CurrentDirectory + "\\双狮子.png")
                Button1.BackgroundImage.Tag = "双狮子"
            ElseIf 景图 = "双狮子" Then
                Button1.BackgroundImage = Image.FromFile(System.Environment.CurrentDirectory + "\\熊猫.bmp")
                Button1.BackgroundImage.Tag = "熊猫"
            End If
        End If
        Button1.Size = Button1.BackgroundImage.Size
        Me.CreateGraphics.Clear(Button1.BackColor)
    End Sub
这个例子不断点击按钮循环更换图片
        Me.ResizeRedraw = True
    Private Sub Form1_Paint(sender As Object,e As PaintEventArgs) Handles MyBase.Paint
        Dim 花篮 = Image.FromFile(System.Environment.CurrentDirectory + "\\花篮.jpg")
        e.Graphics.DrawImage(花篮,Me.Width,Me.Height)
    End Sub