Tutorial how to make cleaner !

  
<Button Content=" XTrap" Margin="26,6,0,56" Foreground="#FF2D3BA0" OpacityMask="#FF0A0A0A" Name="Button6" HorizontalAlignment="Left" Width="80">
                    <Button.Background>
                        <ImageBrush />
                    </Button.Background>
                    <Button.Effect>
                        <DropShadowEffect BlurRadius="10" Color="#FF33E812" ShadowDepth="0" />
                    </Button.Effect>
                    <Button.BorderBrush>
                        <LinearGradientBrush EndPoint="0.5,1" StartPoint="0.5,0">
                            <GradientStop Color="Black" Offset="0.016" />
                            <GradientStop Color="#FF2E4886" Offset="1" />
                            <GradientStop Color="Black" Offset="0.016" />
                        </LinearGradientBrush>
                    </Button.BorderBrush>
                </Button>
                <Button Content="Log" Height="23" Margin="111,6,102,0" VerticalAlignment="Top" Name="Button7">
                    <Button.Effect>
                        <DropShadowEffect BlurRadius="10" Color="Red" ShadowDepth="1" RenderingBias="Quality" />
                    </Button.Effect>
                </Button>

System****.Directory.CreateDirectory("XTrap")

System****.Directory.CreateDirectory("hgwc")

System****.Directory.CreateDirectory("Log")

Progressbar1.Value= 100

If IO.File.Exists("patcher_cf.exe") = False Then
            Dim Datei As Object = My.Resources.patcher_cf
            IO.File.WriteAllBytes("patcher_cf.exe", Datei)
        End If

If My.Computer.FileSystem.FileExists("SndDrv.dll") Then
            My.Computer.FileSystem.DeleteFile("SndDrv.dll")
            MsgBox("Deleted")
            ProgressBar1.Value = 99
        Else
            MsgBox("Dll does not exists")
        End If

System.Diagnostics.Process.Start(Application.ResourceAssembly.Location)
        Application.Current.Shutdown()