Public Sub SpaltenGroesseLaden(DGrid As DataGrid) 
  <font color=green>' benötigte Variablen </font>
  Dim i As Integer 
  Dim buffer As String
  Dim lngTemp As Long 
 
  <font color=green>' Dateiinhalt öffnen und zuweisen </font>
  lngTemp = 1 
  While lngTemp <> 0 
    Buffer = Space(25)
    lngTemp = GetPrivateProfileString("SpaltenGroesse", Trim$(Str$(i)), "", _
      buffer, 255, App.Path & "FormStatus.ini") 
 
    If lngTemp > 0 Then 
      DGrid.Columns(i).Width = Val(buffer)
    End If 
 
    i = i + 1 
  Wend 
End Sub