¿Cómo oculta VB el código fuente de un proceso bajo SP3?

Función de declaración privada GetCursorPos Lib "user32" (lpPoint como POINTAPI) siempre

Función de declaración privada GetWindowRect Lib "user32" (ByVal hwnd siempre, lpRect como RECT) como Long

Función de declaración privada SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInspectorPos As Long, ByVal hWndInspectorPos As Long, ByVal hWndInspectorPos As Long) ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Tipo privado RECT

Izquierda As Long

Arriba As Long

Derecha siempre

Abajo siempre

Tipo final

Tipo privado POINTAPI

X mientras

Y As Long

Tipo final

Const privada HWND_TOPMOST = - 1

Const privada HWND_TOPMOST = - 1

Const privada HWND_TOPMOST = - 1

Const privada HWND_TOPMOST = - 11

Const privada SWP_NOSIZE = &H1

Const privada SWP_NOMOVE = &H2

Const privada HWND_TOP = 0

Const privada SWP_NOACTIVATE = &H10

Const privada SWP_SHOWWINDOW = &H40

Sub Form_Load privada()

'Comentario: El formulario está en la parte superior

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW o SWP_NOMOVE o SWP_NOSIZE

End Sub

Private Sub Timer1_Timer()

Dim p As POINTAPI

Dim f As RECT

GetCursorPos p 'Comentario: Obtener la posición del mouse

GetWindowRect Me.hwnd, f ' Comentario: Arriba < 0 Entonces

Me.Top = -10

Me.Show

ElseIf Me.Left < 0 Entonces

M

e.Left = -10

Me.Show

Me.p>

ElseIf Me.Left + Me.Width >= Screen.Then

Me.Left = Screen.Width - Me.Width + 10

Me.Show

Finalizar si

Si no

Si f.Top <= 4 entonces

Me.Top = 40 - Me.Height

De lo contrario, If f.Left <= 4 entonces

Me.Left = 40 - Me.Width

Me.Show

Fin si

ElseIf f.Top <= 4 Entonces

Me.Top = 40 - Me.Height

ElseIf f.Left <= 4 Then

Me.Width = Screen.Width

ElseIf Me.Left + Me.gt ;= Screen.Width - 4 Entonces

Me.Left = Screen.Width - 40

Fin si

Fin si

Fin Si

Fin Si

Fin Sub