kod bana bakıyor ben koda burda neresini silecegim bilemedim.


Option Compare Database
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = &H2

Option compare database kodunun hemen aldındaki option explicit kodu


yazdığın
kodundaki Option Explicit i sileceksin.

Kod Şu Şekilde olacak.

Konu cevaplanmış sorular bölümüne taşınmıştır