在VB中,如何使斜体字和粗体字一起出现

该怎么写

比如你要form1的字体变成粗斜体
private sub form_load()
form1.FontBold = True
form1.FontItalic = True

form1.autoredraw=true '自动打印设置
print "abcdefg" '打印预览
end sub

我是想要在textbox里的字，单击斜体字按钮，文字会改变成斜体，再按粗体字按钮，文字会变成粗体及斜体，再按按粗体按钮，粗体属性消失，但斜体属性也会消失。我就是一直想不明白该怎么写

private sub command1_click()
if text1.fontbold=true then
text1.fontbold=false
else
text1.fontbold=true
endif
end sub
private sub command2_click()
if text1.fontitalic=true then
text1.fontitalic=false
else
text1.fontitalic=true
endif
end sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Textbox1.Font = New Font("斜体", 15, FontStyle.Italic)
End Sub
写在哪？？？？怎样写？？？
能告诉我的话加20分！

代码窗口啊就是。。。