显示隐藏Excel VBA窗体标题栏

Dim hMain As LongDim tStr As StringPrivate Function TitleBar(ByVal bState As Boolean) Dim lStyle