Private Sub ShowText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowText.Click ShowText.Width=400 End SubChange to
Private Sub ShowText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowText.Click ShowText.Width = New System.Web.UI.WebControls.Unit("400px") End SubHope that helps...