Userform Minimize yardım

[Excelmy]

Merhaba arkadaşlar,
Ekte görülecek dosyada Userformun minimize komutu ile, görev çuğunda görünmesini nasıl sağlayabiliriz.
Teşekkür ederim.

 

[hamitcan]

Umarım böyle birşey istiyorsunuzdur.
Not: Kodlar, Sayın Haluk'a aittir.

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_Activate()
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If (exLong And &H20000) = 0 Then
SetWindowLongA hWnd, -16, exLong Or &H20000
Me.Hide: Me.Show
End If
End Sub

İlgili link:http://www.mrexcel.com/forum/showthread.php?t=59183

 

[Excelmy]

Sayın Hamitcan,
Konu ile ilgilendiğiniz ve zaman ayırdığınız için teşekkür ederim. Ancak belirttiğiniz kodlar ile istediğim işlemi yapamadım.
Saygılarımla.

 

[Excelmy]

Userfom MİNİMİZE ( Çözüldü )

Excel.web.tr ve,
konu ile ilgilenen arkadaşlarımıza teşekkür ederim.

Üye arkadaşlarıma faydalı olması düşüncesi ile biraz uğraş ve araştırmadan sonra elde edilen çözülmüş örneğini ekliyorum.

Saygılarımla.