Public Class Form1
 
	Private font1 As New Font("Times New Romen", 10.0, FontStyle.Regular, _
  GraphicsUnit.Point)
	Private font2 As New Font(font1, FontStyle.Italic)
 
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
		MessageBox.Show(ToolStripTextBox1.Text)
	End Sub
 
	Private Sub ToolStripTextBox1_GotFocus(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ToolStripTextBox1.GotFocus
		With ToolStripTextBox1
			.Font = font2
		End With
	End Sub
 
	Private Sub ToolStripTextBox1_LostFocus(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ToolStripTextBox1.LostFocus
		With ToolStripTextBox1
			.Font = font1
		End With
	End Sub
 
	Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
		font1.Dispose()
		font2.Dispose()
	End Sub
End Class

Ralf