问如何在vb.net中制作自定义按钮

EN

    Private Sub picHome_Click(sender As System.Object, e As System.EventArgs) Handles picHome.Click
        Try
            Dim tPic As PictureBox = DirectCast(sender, PictureBox)
            If Not IsNothing(tPic.Image) Then
                tPic.Image.Dispose()
                tPic.Image = Nothing
            End If
            tPic.Image = Global.CustomButton.My.Resources.btnDemoHome30_MOver
            lbMsg.Text = "HOME BUTTON CLICKED"
        Catch ex As Exception

        End Try
    End Sub

    Private Sub picHome_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles picHome.MouseDown
        Try
            Dim tPic As PictureBox = DirectCast(sender, PictureBox)
            If Not IsNothing(tPic.Image) Then
                tPic.Image.Dispose()
                tPic.Image = Nothing
            End If
            tPic.Image = Global.CustomButton.My.Resources.btnDemoHome30_MClick
        Catch ex As Exception

        End Try
    End Sub

    Private Sub picHome_MouseEnter(sender As Object, e As System.EventArgs) Handles picHome.MouseEnter
        Try
            Dim tPic As PictureBox = DirectCast(sender, PictureBox)
            If Not IsNothing(tPic.Image) Then
                tPic.Image.Dispose()
                tPic.Image = Nothing
            End If
            tPic.Image = Global.CustomButton.My.Resources.btnDemoHome30_MOver
            lbMsg.Text = "MOUSE OVER HOME BUTTON"
        Catch ex As Exception

        End Try
    End Sub