Visual Basic

For i = 1 To textLarge.TextLength<br />
    If Mid(textLarge.Text, i, 1) = Chr(13) Then<br />
        labelNum += 1<br />
        i += 1<br />
    Else<br />
        If labelNum = 1 Then<br />
            text1.Text &= Mid(textLarge.Text, i, 1)<br />
        End If<br />
        If labelNum = 2 Then<br />
            text2.Text &= Mid(textLarge.Text, i, 1)<br />
        End If<br />
        If labelNum = 3 Then<br />
            text3.Text &= Mid(textLarge.Text, i, 1)<br />
        End If<br />
        If labelNum = 4 Then<br />
            text4.Text &= Mid(textLarge.Text, i, 1)<br />
        End If<br />
    End If<br />
Next

Dim myFile As New FileStream( "filename.txt", FileMode.Append )
myFile.WriteLine( "Text I want to append..." )
myFile.Close()

Public Class ShellUtilities

    Public Declare Unicode Function SHFormatDrive _
    Lib "Shell32.dll" _
    (ByVal hwnd As IntPtr, _
     ByVal iDrive As Int32, _
     ByVal iFormatID As Int32, _
     ByVal iOptions As Int32) As Int64

    Public Const SHFD_CAPACITY_DEFAULT = 0  'default drive capacity
    Public Const SHFMT_OPT_FULL = 1
    Public Const SHFMT_OPT_SYSONLY = 2


    Public Shared Sub FormatDrive(ByVal dialogOwner As IntPtr, ByVal iDrive As Int32)
        SHFormatDrive(dialogOwner, iDrive, SHFD_CAPACITY_DEFAULT, SHFMT_OPT_FULL)
    End Sub

End Class

Const A_Drive = 0
Const B_Drive = 1
Const C_Drive = 2
' ... etc ...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ShellUtilities.FormatDrive(Me.Handle, A_Drive)
End Sub

Const SHFMT_ID_DEFAULT = -1
Const SHFMT_OPT_FULL = 1
Const SHFMT_OPT_SYSONLY = 2
Const SHFMT_ERROR = -1          ' Error on last format, drive may be formatable
Const SHFMT_CANCEL = -2         ' Last format was canceled
Const SHFMT_NOFORMAT = -3       ' Drive is not formatable

' SHFormatDrive takes 4 parameters:
'   hWnd        The handle to the window that will be the dialogs parent window.
'   Drive       The drive number to format, 0 is A:, 1 is B:, 2 is C:, ...
'   fmtID       Must always be SHFMT_ID_DEFAULT, or the value ????.
'   options     Opitons.
Private Declare Function SHFormatDrive Lib "shell32" ( _
    ByVal hWnd As IntPtr, _
    ByVal Drive As Integer, _
    ByVal fmtID As Integer, _
    ByVal options As Integer) _
    As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim iDrive As Integer
    Dim rc As Integer

    iDrive = 0
    rc = SHFormatDrive(Me.Handle, iDrive, 0, 0)
    Select Case rc
        Case SHFMT_ERROR
            MsgBox("Format failed, user pressed CLOSE")
        Case SHFMT_CANCEL
            MsgBox("Format cancelled - user hit CLOSE")
        Case SHFMT_NOFORMAT
            MsgBox("Unable to format this disk drive")
        Case Else
            MsgBox("Disk was formatted successfully and returned: " & rc)
    End Select
End Sub

    Private Declare Function SetVolumeLabel Lib "kernel32" _
        Alias "SetVolumeLabelA" ( _
        ByVal rootPath As String, _
        ByVal newLabel As String) _
        As Integer
 
    Dim rc as Integer
 
    rc = SetVolumeLabel( "A:\", "LabelTest" )