Tạo hình dạng cho Form

[thanh tong]

Chào các bạn!
Các bạn cho mình hỏi là có cách nào để tạo ra một form hay Button với một hình dạng bất kỳ nào đó không?
nếu có thì các bạn nói cho mình biết với nhé.
Cảm ơn các bạn

 

[ndu96081631]

Chào các bạn!
Các bạn cho mình hỏi là có cách nào để tạo ra một form hay Button với một hình dạng bất kỳ nào đó không?
nếu có thì các bạn nói cho mình biết với nhé.
Cảm ơn các bạn

Hình Elip được không:

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
  Dim elp As Long, hWnd As Long
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  elp = CreateEllipticRgn(0, 0, 300, 250)
  SetWindowRgn hWnd, elp, True
End Sub

Chơi cho vui thôi chứ muốn làm đàng hoàng phải sửa lại code rất nhiều (về vị trí của Form trên màn hình)
Mà bạn cần Form có hình "kỳ cục" để làm gì vậy?

 

[thanh tong]

Mình muốn cho nó thêm sống động thôi
cứ mấy cái cũ thì nó nhàm chán quá hơn nữa mình hỏi để học hỏi mà
cảm ơn anh Du nhiều