🚀 go-pugleaf

I saw a code about Baloon Creating and it was so interesting to me
Also Gambit told a way to make it visible but I'm still wonder to make it
visible

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   HWND hwndToolTips = CreateWindow(TOOLTIPS_CLASS,
        NULL,
        WS_POPUP | TTS_NOPREFIX | TTS_BALLOON,
        0, 0,0, 0,NULL, NULL,NULL,NULL);
   if (hwndToolTips){
      TOOLINFO ti;
      ti.cbSize = sizeof(ti);
      ti.uFlags = TTF_TRANSPARENT | TTF_CENTERTIP;
      ti.hwnd = this->WindowHandle;
      ti.uId = 0;
      ti.hinst = NULL;
      ti.lpszText = "test balloon message";
      ::SetWindowPos(hwndToolTips,
                HWND_TOPMOST,
                0,0,0,0,SWP_NOMOVE | SWP_NOSIZE | SWP_NOACTIVATE);

      ::GetClientRect(this->Handle, &ti.rect);
      SendMessage(hwndToolTips, TTM_ADDTOOL, 1, (LPARAM) &ti );
    }
    SendMessage(hwndToolTips,TTM_ACTIVATE,(WPARAM)TRUE,WS_VISIBLE);
    ShowWindow(hwndToolTips,SW_SHOWDEFAULT);
}


As you see I add WS_VISIBLE to the one line before end , and add the final
line personaly ...
Still nothing
How could I ? what shoudl I write?
thx