网上有代码，理论上什么样的图形都可以做到，至于鼠标拖动就是无标题栏的窗体移动问题。。。。。。

先将窗体设置为无标题栏的那种，再设置窗体背景色，例如黑色，并在窗体上放一张你所帖子中显示的那样的图片，再调用API函数SetLayeredWindowAttributes，在Form_Load过程中输入：

SetLayeredWindowAttributes hWnd, 0, 0, 1    '将黑色设为透明

鼠标拖动无标题窗体也可用API函数：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hWnd, &HA1, 2, 0& '移动无标题窗体
End Sub