How to CONNECT and ATTACH to PS3 VB

'This is a tutorial how to connect and attach, and setmemory in VB.
'IMPORT your libraries needed...

'Make sure you have this in your project
'
'using System;
'using System.Collections.Generic;
'using System.ComponentModel;
'using System.Data;
'using System.Drawing;
'using System.Linq;
'using System.Text;
'using System.Threading.Tasks;
'using System.Windows.Forms;
'using System.IO;
'using System.Reflection;
'using System.Management;
'
'

Imports PS3Lib 'Makes PS3Lib available... Also make sure to add it to references!!
Partial Public Class Form1
    Inherits Form

        Public Sub New()
            InitializeComponent()
        End Sub

Public PS3 As New PS3Lib.PS3API(PS3Lib.SelectAPI.ControlConsole) 'Sets Current API to Control Console

'Make a label, and name it "connectionlabel" (without quotes)
'Make 2 radiobuttons.

'Your two radio buttons should look like this:

Private Sub radioButton1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            PS3.ChangeAPI(PS3Lib.SelectAPI.ControlConsole)
End Sub

        Private Sub radioButton2_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
            PS3.ChangeAPI(PS3Lib.SelectAPI.TargetManager)
        End Sub
'Put the text on radio button1 as "CEX"
'Put the text on radio button2 as "DEX"



 Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim API As String = PS3.GetCurrentAPIName() 'This will get your current API... Whether its Control Console or TMAPI
            If API = "Control Console" Then
'Make a textbox & name it "ipaddress" (without quotes)
                If Convert.ToBoolean(PS3.ConnectTarget(ipaddress.Text)) = True Then
                    PS3.AttachProcess()
                    PS3.CCAPI.RingBuzzer(PS3Lib.CCAPI.BuzzerMode.Single)
                    PS3.CCAPI.Notify(PS3Lib.CCAPI.NotifyIcon.FRIEND, "Connected and attached!")
                    connectionlabel.Text = "Connected and Attached."
                    connectionlabel.ForeColor = Color.Black
                Else
                    connectionlabel.Text = "Failed to Connect and Attach!"
                    connectionlabel.ForeColor = Color.Red
                End If
            Else
                If Convert.ToBoolean(PS3.ConnectTarget()) = True Then 'This is for DEX to connect & attach
                    PS3.AttachProcess()
                    connectionlabel.Text = "Connected and Attached."
                    connectionlabel.ForeColor = Color.Black
                Else
                    connectionlabel.Text = "Failed to Connect and Attach!"
                    connectionlabel.ForeColor = Color.Red
                End If
            End If
 End Sub

Private Sub button5_Click(ByVal sender As Object, ByVal e As EventArgs)
        PS3.SetMemory(&H0, &H0)
        'MW3 name example
        PS3.Extension.WriteString(&H1BBBC2C, "^2BaSs^5_^2HaXoR")
End Sub