去找一些皮肤控件吧

异型窗体

比较笨的办法（不笨的办法没测试成功^_^）

'窗体的 BorderStyle 设为 0 - None
'一个 TextBox，一个 CommandButton
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Private Sub Form_Load()
    Command1.Caption = "裁剪窗体"
End Sub

Private Sub Command1_Click()
    Dim ShapeV(3) As POINTAPI
    ShapeV(0).X = Text1.Left \ Screen.TwipsPerPixelX
    ShapeV(0).Y = Text1.Top \ Screen.TwipsPerPixelY
    ShapeV(1).X = ShapeV(0).X + Text1.Width \ Screen.TwipsPerPixelX
    ShapeV(1).Y = ShapeV(0).Y
    ShapeV(2).X = ShapeV(1).X
    ShapeV(2).Y = ShapeV(0).Y + Text1.Height \ Screen.TwipsPerPixelY
    ShapeV(3).X = ShapeV(0).X
    ShapeV(3).Y = ShapeV(2).Y
    SetWindowRgn Me.hwnd, CreatePolygonRgn(ShapeV(0), 4, 1), True
    Text1.Text = "输入“exit”退出"
    Text1.SelLength = Len(Text1.Text)
    Text1.SetFocus
End Sub

Private Sub Text1_Change()
    If Text1.Text = "exit" Then MsgBox "bye bye ~": End
End Sub

哎