'Beispiel: VB .Net - Titelzeilenbeschriftung - Caption - Rechts ausrichten ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports vb = Microsoft.VisualBasic Namespace VBDotNet_Titelzeilenbeschriftung_Rechts_Ausrichten Public Class MainForm Inherits System.Windows.Forms.Form Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 266) Me.Name = "MainForm" Me.Text = "Testform <Titelzeilenbeschriftung - Caption - Rechts ausrichten>" AddHandler Resize, AddressOf Me.MainFormResize End Sub #End Region Private Sub MainFormResize(sender As System.Object, e As System.EventArgs) Call TitleBar_CaptionAlignRight("Align Text right") End Sub Private Sub TitleBar_CaptionAlignRight(ByVal TitleText As String) Try Dim hGraphics As Graphics = Me.CreateGraphics() Dim fnt As Font = Me.Font Dim sf As SizeF = hGraphics.MeasureString(TitleText, fnt) Dim Buffer As Integer = Me.Width - sf.Width - 100 If Buffer > 0 Then sf = hGraphics.MeasureString(" ", Me.Font) Buffer = Buffer \ sf.Width Me.Text = vb.Space(Buffer - 1) & TitleText End If hGraphics.Dispose() Catch End Try End Sub End Class End Namespace