'-----------------------------CREATED by H3r0n---------------------
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal iparam As Long) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()

Private Function mover(Form1 As Form)
ReleaseCapture
Call SendMessage(Form1.hwnd, &HA1, 2, 0&)
End Function

Private Sub Label1_Mousemove(Button As Integer, shift As Integer, x As Single, y As Single)
Call mover(Me)
End Sub

Private Sub Label2_Click()
End
End Sub

Private Sub Label3_Click()
Shape3.BackColor = &HFF&
Shell "REG DELETE HKLM\Software\KasperskyLab\LicStorage /f"
Shell "REG DELETE HKLM\Software\Microsoft\Cryptography\RNG /f"
Shell "REG DELETE HKLM\Software\Microsoft\SystemCertificates\SPC\Certificates /f"
MsgBox "Kaspersky renovado. Por favor, activa la versión de prueba durante 30 dias de nuevo", vbInformation
Shape3.BackColor = &H80000005
End Sub