عکس برنامه

لینک دانلود وقتی که در قسمت نظرات نظری ببینم می زارم

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags 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

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const WS_EX_LAYERED = &H80000

Public Function Trans(ByVal hwnd As Long, Perc As Integer) As Long

Dim Msg As Long
On Error Resume Next
If Perc < 0 Or Perc > 255 Then
  Trans = 1
Else
  Msg = GetWindowLong(hwnd, GWL_EXSTYLE)
  Msg = Msg Or WS_EX_LAYERED
  SetWindowLong hwnd, GWL_EXSTYLE, Msg
  SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA
  Trans = 0
End If
If Err Then
  Trans = 2
End If

اطلاعات زير را در فرم اصلي قرار دهيد :

Private Sub Form_Load()
VScroll1.Value = 260
End Sub

Private Sub VScroll1_Scroll()
Trans Form1.hwnd, VScroll1.Value
End Sub

راستی یک اسکرول نیاز دارید کدهای بالا رو هم درون اسکرول بریزید

آموزش از مقدماتی تا پیشرفته در حد عالی

ویروس نویسی

بزودی