VB Program to Auto Size and Word Wrap a Label


Sample Code :

Auto Size


Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Label1.AutoSize = True
    Else
        Label1.AutoSize = False
    End If
End Sub

Word Wrap


Private Sub Check2_Click()
    If Check2.Value = 1 Then
        Label1.WordWrap = True
    Else
        Label1.WordWrap = False
    End If
End Sub

Full Code :

Output(Autosize & Wordwrap.exe)

Full code(Autosize & Wordwrap.doc)

Full project(Autosize & Wordwrap.vbp,.frm)

*Note Full project require Visual Basic 6.0