Minimize UserForm VBA Excel

Minimize UserForm VBA Excel - Perhatikan gambar gif dibawah..!! Terus terang saya tidak punya ilmu untuk menjelaskan hal semacam ini dikarenakan saya belajar otodidak. Yang terpenting dari belajar otodidak aplikasinya dapat berjalan baik.

Ada yang menyebutkan untuk membuat Minimize UserForm menggunakan Code API. Saya ngak paham tu. daripada membahas yang ngak paham kelamaan labih bagus kita nyontek ajha kode untuk Minimize UserForm VBA Excel. Ikuti ajha langkah-langkah yang saya sajikan berikut ini

Admin sangat menyarankan bagi yang sedang mempelajari kode Vba Excel agar membuat file contoh penerapan kode. Dengan membuat file contoh penerapan kode akan mempercepat memahami penggunaan dan fungsi dari kode yang diterapkan

Langkah-langkah membuat Tombol Minimize UserForm VBA Excel :

Buka Visual Basic file Aplikasi Data (Download di Posting Tombol Simpan VBA Excel)
Tambahkan sebuah Modul, masukkan kode berikut dalam modul tersebut.

Public Const WS_MINIMIZEBOX = &H10000
Public Const WS_MAXIMIZEBOX = &H20000
Public Const GWL_STYLE = (-16)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Public Sub AddMinMaxButtons(ByVal FormCaption As String, ByVal MinButton As Boolean, ByVal MaxButton As Boolean)
Dim hWnd As Long
Dim lngStyle As Long
hWnd = FindWindow(vbNullString, FormCaption)
lngStyle = GetWindowLong(hWnd, GWL_STYLE)
If MaxButton Then
lngStyle = lngStyle Or WS_MAXIMIZEBOX
End If
If MinButton Then
lngStyle = lngStyle Or WS_MINIMIZEBOX
End If
SetWindowLong hWnd, GWL_STYLE, lngStyle
DrawMenuBar hWnd
End Sub