سوال : چگونه BorderStyle فرم هایی رو که منو به آن ها اضافه کردیم مقدارشون رو -None قرار بدیم ؟

[cabok dast]

چگونه BorderStyle فرم هایی رو که منو به آن ها اضافه کردیم مقدارشون رو -None قرار بدیم ؟

[meys34]

Option Explicit

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000

Private Sub Command1_Click()
SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) And Not WS_BORDER
Me.Width = Me.Width - 20
Me.Width = Me.Width + 20
End Sub

Private Sub Command2_Click()
Unload Me
End Sub