How Can i Select all using SendKeys in Vb6

I use these lines to Select all text and copy it to the clipboard from the active window but no text is Selected, so how can I select text using vb6 and sendkeys function

• I'm using win 10

Call SendKeys("^A", True)
Call SendKeys("^c", True)