Εχω μία φόρμα της οποίας το Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None . Θέλω να την πιάνω από την άκρη και αυτή να κάνει resize όπως όταν είναι ορισμένη Sizable . Κάτι αντίστοιχο με αυτό :
Private Const Win_MouseButtonDOWN As Long = &HA1
Private Const Win_MouseBouttonUP As Long = &HA0
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Declare Sub SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer)
Private Sub ΜετακίνησηΦόρμας(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
ReleaseCapture()
SendMessage(Me.Handle.ToInt32, Win_MouseButtonDOWN, 2, 0&)
If Me.Opacity <> 1.0 Then Me.Opacity = 1.0
End If
End Sub
Eυχαριστώ