ObjClassForm2

Public Class Form2
    Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
        Dim objAlterPicBox As ClassChangeHeightWidth
        Dim NewHeight As Integer
        Dim NewWidth As Integer
        objAlterPicBox = New ClassChangeHeightWidth
        objAlterPicBox.ChangeHeight = Val(txtHeight.Text)
        objAlterPicBox.ChangeWidth = Val(txtWidth.Text)
        NewHeight = objAlterPicBox.ChangeHeight
        NewWidth = objAlterPicBox.ChangeWidth
        PictureBox1.Height = NewHeight
        PictureBox1.Width = NewWidth
    End Sub
End Class