Option Compare Database
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Public Function msgBoxOK(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
'BStrMsg, BStrTitle : La chuoi Unicode
Dim BStrMsg, BStrTitle
'Hàm StrConv Chuyen chuoi ve ma Unicode
BStrMsg = StrConv(PromptUni, vbUnicode)
BStrTitle = StrConv(TitleUni, vbUnicode)
msgBoxOK = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
End Function
Public Function msgBoxYESNO(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbYesNo, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
'BStrMsg, BStrTitle : La chuoi Unicode
Dim BStrMsg, BStrTitle
'Hàm StrConv Chuyen chuoi ve ma Unicode
BStrMsg = StrConv(PromptUni, vbUnicode)
BStrTitle = StrConv(TitleUni, vbUnicode)
msgBoxYESNO = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
End Function
Trứng rung Private Massager hay còn được gọi với cái tên trứng rung cá heo là sản phẩm nức danh giờ. Công dụng chính là giúp massage “cô bé”, hỗ trợ tạo cảm giác hưng phấn, mới lạ cho chị em “tự...
Các cặp đôi hoàn toàn có thể sử dụng chày rung điều khiển từ xa ở nơi công cộng