Edited Resizing a Borderless Form

Опубликовано: 31 Июль 2026
на канале: Ethup Bolt

1,833

Public Class Form1

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Size = MousePosition
End Sub

Private Sub resize_MouseDown(sender As Object, e As MouseEventArgs) Handles resize.MouseDown
Timer1.Enabled = True
Timer1.Interval = 3
End Sub

Private Sub resize_MouseUp(sender As Object, e As MouseEventArgs) Handles resize.MouseUp
Timer1.Enabled = False

End Sub

Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
Timer1.Enabled = True
Timer1.Interval = 3
End Sub

Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
Timer1.Enabled = False
End Sub
End Class

LIKE || SUBSCRIBE!