(12/04/2023, 23:58)berduş yazdı: Bu dosyada bazı değişiklikler yaptım normalde formları küçültünce taskbara gitmek yerine aşağıdaki gibi taskbar üzerinde küçülüyorlardı

yeni dosyada taskbara küçülüyor
Not tüm formlara uygulamadım diğer formların yüklenme olayına eklemeniz gerek
Form_Load() olayında ShowInTaskbar Me.hWnd, True kodu eklenmeli
TaskBar için eklenen kodlar

#If Win64 Then

'ShowInTaskbar________________________________________

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _

      ByVal hWnd As Long, _

      ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _

        ByVal hWnd As Long, _

        ByVal nIndex As Long, _

        ByVal dwNewLong As Long) As Long

'ShowInTaskbar________________________________________



#Else

'ShowInTaskbar________________________________________

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _

      ByVal hWnd As Long, _

      ByVal nIndex As Long) As Long

Private Declare  Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _

        ByVal hWnd As Long, _

        ByVal nIndex As Long, _

        ByVal dwNewLong As Long) As Long

'ShowInTaskbar________________________________________

#End If







'ShowInTaskbar________________________________________

Private Const WS_EX_APPWINDOW = &H40000

Private Const GWL_STYLE = -20



Public Function ShowInTaskbar(Lhwnd As Long, Show As Boolean)

Dim lStyle As Long

lStyle = GetWindowLong(Lhwnd, GWL_STYLE)



If Show Then

lStyle = lStyle Or WS_EX_APPWINDOW

Else

lStyle = lStyle And Not WS_EX_APPWINDOW

End If



Call SetWindowLong(Lhwnd, GWL_STYLE, lStyle)



End Function

'ShowInTaskbar________________________________________BİTTİ

@berduş hocam çok teşekkür ederim. Bir sonraki sorum bu olacaktı benden önce davranmışsınız. Çok sağolun.