Private Sub Form_Load()
    With sevText1
        .Height = 615
        .Width = 6135
        .CaptionWidth = 2400
        .CheckBox = True
        .Caption = "leer"
    End With
End Sub
 
Private Sub sevText1_Checked()
    With sevText1
        If .Checked = vbChecked Then .Alignment = rsRechts
        If .Checked = vbUnchecked Then .Alignment = rsLinks
    End With
End Sub
 
Private Sub sevText1_MouseIn()
    sevText1.Caption = "In"
End Sub
 
Private Sub sevText1_MouseOut()
    sevText1.Caption = "Out"
End Sub