DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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 Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
Dim e As Integer
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 Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
Private Sub CommandButton16_Click()
For X = 0 To 200
DoEvents
If e = 1 Then
d = d + 280
yuk = 345
mak = 65
Else
d = d - 280
yuk = 345
mak = 65
End If
UserForm1.Height = yuk + d
If UserForm1.Height >= mak And e = 1 Then GoTo 10
If UserForm1.Height <= mak And e = 0 Then GoTo 20
Next
10 CommandButton16.Caption = "ANA MENÜYÜ GİZLE"
e = 0
Exit Sub
20 CommandButton16.Caption = "ANA MENÜYÜ GÖSTER"
e = 1
End Sub
Private Sub CommandButton15_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
For a = 0 To 535 Step 1
DoEvents
Me.Height = a
Next
Do
UserForm1.Label1 = Format(Now, "dd mmmm yyyy dddd hh:mm:ss")
DoEvents
Loop
End Sub