[ HELP ] Cracking, Patching Applications

Code:
Private Sub Button3_Click(sender As Object, e As EventArgs)
	Dim licensed As Boolean = Security.Licensed
	If licensed Then
		Dim flag As Boolean = Me.myfiles.Count > 0
		If flag Then
			Dim flag2 As Boolean = Me.FBD.ShowDialog() = DialogResult.OK
			If flag2 Then
				Dim selectedPath As String = Me.FBD.SelectedPath
				Dim fileName As String = selectedPath + "\" + Me.MyActiveProductid + ".chkn"
				Dim zipFile As ZipFile = New ZipFile(fileName)
				Try
					For Each fileClass As FileClass In Me.myfiles
						Try
							zipFile.AddEntry(fileClass.filename, fileClass.filedata)
						Catch ex As Exception
						End Try
					Next
				Finally
					Dim enumerator As List(Of FileClass).Enumerator
					CType(enumerator, IDisposable).Dispose()
				End Try
				zipFile.Save()
				Try
					For Each fileClass2 As FileClass In Me.myfiles
						Try
							File.WriteAllBytes(selectedPath + "\" + fileClass2.filename, fileClass2.filedata)
						Catch ex2 As Exception
							Interaction.MsgBox("Error:" + ex2.Message, MsgBoxStyle.OkOnly, Nothing)
						End Try
					Next
				Finally
					Dim enumerator2 As List(Of FileClass).Enumerator
					CType(enumerator2, IDisposable).Dispose()
				End Try
				Process.Start("explorer.exe", selectedPath)
			End If
		Else
			Interaction.MsgBox("Nothing to save", MsgBoxStyle.OkOnly, Nothing)
		End If
	Else
		Interaction.MsgBox("This Feature Exists Only in Registered Version", MsgBoxStyle.OkOnly, Nothing)
	End If
End Sub