آموزش رایگان ویژوال بیسیک 6

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

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 Sub Command1_Click()
   

Dim Retval As Long
   

Retval = GetWindowLong(hWnd, -20)
   

Retval = Retval Or 524288
   

 SetWindowLong hWnd, -20, Retval
   

 SetLayeredWindowAttributes hWnd, 0, Val(Text1.Text), 2

End Sub

Private Sub Form_Load()
   

Text1.Text = 100
   

 Command1_Click

End Sub