OnResize example

Example for OnResize event

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Command1.Text = "Resize Avax"
    cAvax1.StartAvax()
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    cAvax1.EndAvax()
End Sub

Private Sub CAvax1_OnResize(ByVal Sender As Object, ByVal e As System.EventArgs) Handles CAvax1.OnResize
    MsgBox("OnResize", MsgBoxStyle.Information, "Event OnResize")
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    Call cAvax1.SetBounds(0, 0, Me.Width - 0.5 * Command1.Height, Me.Height - 3 * Command1.Height)
    Command1.Enabled = False
End Sub