XProfan

CLS
Var static&=Create("Text",%hwnd,"",10,10,195,20)
Var button&=Create("Button",%hwnd,"Change Status",10,40,195,30)
Var ttip&=Create("Tooltip",%hwnd,%hwnd,"Tooltip-Text")
Var status&=1
Settext  static&,Str$(status&)+" = Tooltip wird "+If(status&=1,"ein","aus")+"geblendet"

WhileNot iskey(27)

    Waitinput

    If Clicked(button&)

        status&=Not(status&)
        SetText ttip&,%hwnd,%hwnd,If(status&, "Tooltip-Text","")
        Settext  static&,Str$(status&)+" = Tooltip wird "+If(status&=1,"ein","aus")+"geblendet"
        Setfocus(%hwnd)

    Endif

EndWhile

'Tooltip deaktivieren:
SendMessage(tip&, ~TTM_ACTIVATE, 0, 0)
'Tooltip wieder aktivieren:
SendMessage(tip&, ~TTM_ACTIVATE, 1, 0)