没有caption的窗体如何在任务栏上显示程序名字

Question

Option Explicit
Dim temp As String
Private Sub Command1_Click()
Me.WindowState = vbMinimized
End Sub
Private Sub Form_Load()
Me.Caption = ""
temp = Me.Caption
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
   temp = Me.Caption
   Me.Caption = "最小化" '"目录"
   'Me.Caption = App.Title
Else
   Me.Caption = temp
End If
End Sub

Answer 1

to playyuer:
老大，你只是用了个小技巧，但是我要的效果是窗口正常显示时任务栏和windows的工具条上依然显示窗口标题文字而vb的窗口上不显示标题

Answer 2

用API函数CREATERECTRGN 和
SETWINDOWRGN
WINAMP就是这样做的