nguyentrungbkhn
Thành viên mới

- Tham gia
- 22/10/10
- Bài viết
- 14
- Được thích
- 1
Dim dw As Long, hwnd As Long, r As Long
dw = &H84080080
hwnd = FindWindow("ThunderDFrame", Me.Caption)
SetWindowLong hwnd, -16, dw
Me.Height = Me.Height + 1: Me.Height = Me.Height - 1
Thanks bạn nhiều. Đúng là do đoạn code đó.bạn coi trong UserForm_Initialize() có đoạn code này không:
bạn bỏ nó đi.Mã:Dim dw As Long, hwnd As Long, r As Long dw = &H84080080 hwnd = FindWindow("ThunderDFrame", Me.Caption) SetWindowLong hwnd, -16, dw Me.Height = Me.Height + 1: Me.Height = Me.Height - 1