Option Explicit
 
Private Declare Function GetTextExtentPoint32 Lib "gdi32" _
   Alias "GetTextExtentPoint32A" (ByVal hDC As Long, _
   ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE) _
   As Long
 
Private Type SIZE
   Width As Long
   Height As Long
End Type
 
Private Sub Command1_Click()
   Dim tSize As SIZE
 
   With Command1
      Set Me.Font = .Font
      GetTextExtentPoint32 Me.hDC, .Caption, Len(.Caption), tSize
   End With
 
   ' Die Größen stehen in tSize in Pixel und werden zur Ausgabe in Twips 
   ' umgerechnet
   Label1.Caption = "Width = " & Format(Int(tSize.Width * _
     Screen.TwipsPerPixelX)) & _
      "  Height = " & Format(Int(tSize.Height * Screen.TwipsPerPixelY))
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control