round komutu ile yaptığım bir gizleme var. Onu deneyiniz. Kodları aşağıda ve çalışan örneği için "Tc kimlik sorgulama örneği"mi inceleyin.

Option Compare Database

Private Declare Function CreateRoundRectRgn _

Lib "gdi32" (ByVal x1 As Long, _

ByVal y1 As Long, _

ByVal X2 As Long, _

ByVal Y2 As Long, _

ByVal X3 As Long, _

ByVal Y3 As Long) As Long



Private Declare Function SetWindowRgn _

Lib "user32" (ByVal hWnd As Long, _

ByVal hRgn As Long, _

ByVal bRedraw As Boolean) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)



'gizleme



Option Explicit



Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long



Private Const GW_CHILD = 5

Private Const GW_HWNDNEXT = 2

https://accesstr.net/konu-yeni-tc-kimlik...ismaz.html