Here is the code I have right now
Dim CurLocation, AppLocation As New Point(0, 0)
Private Sub Sync()
CurLocation = Cursor.Position
AppLocation = Me.Size
End Sub
Private Sub panel3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel3.MouseDown
ResizeTimer.Start()
Sync()
End Sub
Private Sub panel3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel3.MouseUp
ResizeTimer.Stop()
Sync()
End Sub
Private Sub ResizeTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResizeTimer.Tick
Me.Size = AppLocation - CurLocation + Cursor.Position
End Sub

New Topic/Question
Reply




MultiQuote




|