Private Sub Button1_Click()
    text1.fontbold = true
end sub
----------------------------------------------------------
Private Sub Button2_Click()
    text1.FontItalic = true
end sub
---------------------------------------------------------
Private Sub Button3_Click()
    text1.fontUnderline = true
end sub

Private Sub Button4_Click()
    text1.allignment = 0, 1 oder 2
end sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)