code

Imports Memory
Public Class Form1
    Dim m As New Memory.Mem
    Dim client As String = "factorio"
    Dim Base As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Adress As Long = m.AoBScan("0x" + Base, &H2416BFFF9C0, "38 00 00 00 C8 00 8C 00").Result
        If Adress.ToString("x8").Length >= 1 Then
            ListBox1.Items.Add(Adress)
        Else
            MsgBox("Nothing Found")
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        m.OpenProcess(client)
        Base = m.procs.MainModule.BaseAddress.ToString("x8")
        ListBox1.Items.Add(Base)
    End Sub
End Class