Dim name As String = ""
        Do Until name.Length >= 2
            Threading.Thread.Sleep(10)
            Application.DoEvents()
            name = Memory.ReadString(Proc(0), &H63FFA4, 7)
        Loop
    ComboBox1.items.add(name)