Discouraging disassembling?

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging

Public Class frmMain
    Inherits System.Windows.Forms.Form
    
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer


        Private Const SPI_SETDESKWALLPAPER = 20
        Private Const SPIF_UPDATEINIFILE = &H1

Private Sub btnSetWallpaper_Click(ByVal sender As System.Object, ByVal e As          
                  System.EventArgs) Handles btnSetWallpaper.Click

        Dim imagePath As String = Application.StartupPath & "\icon.bmp" ' which will really be the image that rats him/her out

        
        pic.Image.Save(imagePath, ImageFormat.Bmp)


        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE)

    End Sub

 Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)             



        Dim dlg As OpenFileDialog = New OpenFileDialog

        dlg.Filter = "Image Files (*.bmp, *.gif, *.jpg)|*.bmp;*.gif;*.jpg"
        dlg.Title = "Select the image to load."

        dlg.ShowDialog()


        pic.Image = Image.FromFile(dlg.FileName)
        dlg.Dispose()

    End Sub
End class