Hola que tal, prueba con esto a ver si te funciona
![;D ;D](https://forum.elhacker.net/Smileys/navidad/grin.gif)
Código [Seleccionar]
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Sub Form_Load()
Dim Resp As Long
Resp = SetWindowLong(Me.hwnd, -20, &H20&)
Form1.Refresh
End Sub