QHTML 2.0 - frmLine.vb - Piero Tofy.it


	Imports QHTML.frmQHTML Public Class frmLine Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click Dim Result As String = "<hr" If Not chbBord.Checked Then Result += " noshade" End If Result += " width=" + Quote & nudWidth.Value & Quote Result += " align=" + Quote + dudAlign.SelectedItem & Quote Result += " color=" + Quote + cmbColor.SelectedText + Quote Result += " size=" + Quote & nudSize.Value & Quote Result += ">" + vbCrLf InsertTAG(Result) Me.Close() End Sub End Class