|
Public Class Form1
Dim Docker As New FormDocker.FormDocker(Me, FormDocker.FormDocker.FormDockMode.TopRight, New Padding(5))
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Docker.DockForm()
Docker.UndockForm()
Docker.DockForm()
Me.Text = Docker.ToString
End Sub
Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move
Docker.Refresh()
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Docker.Refresh()
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.