Visual Basic

 Dim xl As New Excel.Application
   
Private Sub exc()
        Try
            Dim i As String
            i = CStr(1)
            Me.xl = CreateObject("Excel.Application")
            Me.xl.Workbooks.Add()
           
            Me.xl.Range("A1").Value = "Sr No."
            Me.xl.Range("B1").Value = "Area Code"
            Me.xl.Range("C1").Value = "Area Name"
            Me.xl.Range("D1").Value = "Alias"

            i = CStr(2)

           


            'Me.TextBox1.Focus()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Private Sub btnreport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreport.Click
        Try
            xl.Visible = True

            Me.xl.Range("A" & i).Value = Me.lst1.Items(0).SubItems(0).Text
            Me.xl.Range("B" & i).Value = Me.lst1.Items(0).SubItems(3).Text
            Me.xl.Range("C" & i).Value = Me.lst1.Items(0).SubItems(1).Text
            Me.xl.Range("D" & i).Value = Me.lst1.Items(0).SubItems(2).Text


            i = CStr(CDbl(i) + 1)
           
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

Dim i, t As Integer

            t = Me.chklistbox.Items.Count
            For i = 0 To t - 1


                Me.txtpov.Text = (Me.chklistbox.CheckedItems(i) & "," & Me.chklistbox.CheckedItems(i + 1))

            Next

<br />
String.Format("function (s,e){if(e.item.name == 'OtherField'){if(" & _<br />
"'{0}'.IsCustomizationWindowVisible() == false){" & _<br />
"'{0}'.ShowCustomizationWindow()} else{" & _<br />
"'{0}'.HideCustomizationWindow()}" & "}else if(e.item.name == 'Group'){" & _<br />
"if(e.item.GetChecked()){'{0}'.PerformCallback()}}}", Me.ClientInstanceName)<br />

CALL FUNCTION 'ZTEST_RFC'
     TABLES
        IT_RFCTABLE      =  VB_TABLE_NAME????
     EXCEPTIONS
        NOT FOUND        =  1
        INSERT_FAILURE   =  2
        OTHERS           =  3.   

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Public Class Player


    Private isOpen As Boolean = False
    Private GetFileName As String = Nothing

    'mciSendString 
    <[DllImport]("winmm.dll")> _
    Private Shared Function mciSendString(ByVal command As String, ByVal ReturnValue As StringBuilder, _
                                          ByVal returnLength As Integer, ByVal winHandle As IntPtr) As Long
    End Function

    'This procedure closes the playing media file

    Public Sub ClosePlayer()

        If (isOpen) Then

            Dim PlayCommand As String = "Close " + GetFileName

            mciSendString(PlayCommand, Nothing, 0, IntPtr.Zero)
            isOpen = False

        End If

    End Sub

    'This procedure will open the media file

    Private Sub OpenMediaFile()

        ClosePlayer()
        Dim PlayCommand As String = "open \""" + GetFileName + " \ "" type mpegvideo alias MediaFile"

        mciSendString(PlayCommand, Nothing, 0, IntPtr.Zero)
        isOpen = True

    End Sub

    'This sub procedure will play the media file
    '
    Private Sub PlayMediaFile()

        If (isOpen) Then
            Dim PlayCommand As String = "play " + GetFileName
            mciSendString(PlayCommand, Nothing, 0, 0)
        End If

    End Sub

    'This sub procedure will initiate playing

    Public Sub Play(ByVal FileName As String)

        GetFileName = fileName
        OpenMediaFile()
        PlayMediaFile()

    End Sub

    'this procedure will pause the file
    '
    Public Sub Pause()
        mciSendString("pause " + GetFileName, Nothing, 0, IntPtr.Zero)
    End Sub

    'This sub procedure will resume the file
    '
    Public Sub Resumit()
        mciSendString("resume " + GetFileName, Nothing, 0, 0)
    End Sub


End Class

Dim playclass as new Player
    playclass.play("hello.mp3")