[VB.net] Frage zu Programm

Public Class Form1
    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Int32, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Dim hl2 As Process
    Dim p() As Process = Process.GetProcessesByName("hl2")
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If p.Length > 0 Then
            hl2 = p(0)
        End If
    End Sub
End Class