Met de volgende code kun je de minimaliseer- en maximaliseerknop aan het userform toevoegen.
Plaats deze code in het VBA-deel van het Userform.
De eerste 3 regels zijn declaraties en komen dus helemaal bovenaan in de VBA-module te staan.
In de gebeurtenisprocedure Initialize, wanneer het userform wordt geladen, worden de knoppen toegevoegd.
- Code: Selecteer alles
Private Declare Function FindWindowA Lib "USER32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "USER32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "USER32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub UserForm_Initialize()
SetWindowLongA FindWindowA(vbNullString, Caption), -16, GetWindowLongA(FindWindowA(vbNullString, Caption), -16) Or &H20000
End Sub