Private Declare PtrSafe Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Private Declare PtrSafe Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Sub AA()
  Dim hThread As PtrLong, iThread As Long
  hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf PressKey, ByVal 0&, ByVal 0&, iThread)
  .............................................
  Call TerminateThread(hThread, ByVal 0&)
  Call CloseHandle(hThread)
End Sub

Public Sub PressKey()
  Dim iSec As Long, hwnd As Long, hBut As Long, bKey As Boolean, iThread As Long, iDialog As Long
  Dim I As Integer, SetInput(0 To 1) As KINDINPUT, KeyInput As KEYBDINPUT, F As Long
  MsgBox 'Button Click'
End Sub