Visual Basic

if checkbox1.checked the <br />
bmb.position=0 <br />
sum += Val(Label 1 .text) <br />
textbox1.text & = " the 1st car part name" <br />
end if <br />
if checkbox2.checked the <br />
bmb.position=1<br />
sum += Val(Label 1 .text) <br />
textbox1.text & = " the 2nd car part name" <br />
end if <br />
.<br />
.<br />
.<br />
etc..<br />

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click  <br />
 Dim strcon As String   <br />
Try   	<br />
strcon = " provider=microsoft.jet.oledb.4.0;datasource=Cars.mdb "   	Dim con As New OleDbConnection(strcon)   	con.Open()    <br />
 	Dim adapter As New OleDbDataAdapter("select * from CarParts", con)  <br />
 Dim cn As OleDbConnection = New OleDbConnection   	Dim dset1 As New DataSet   <br />
    Dim dt As New DataTableadapter.Fill(dt)   	CheckedListBox1.DataSource = dt   	CheckedListBox1.DisplayMember = "PartName" <br />
      Catch ex As Exception   <br />
	MessageBox.Show(ex.Message)  <br />
  <br />
 End Try 	<br />
End Sub

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
lpSFlags As Long, ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM = 1
Const INTERNET_CONNECTION_LAN = 2
Const INTERNET_CONNECTION_PROXY = 4
Const INTERNET_CONNECTION_MODEM_BUSY = 8

' return True if there is an active Internect connection
'
' optionally returns the connection mode through
' its argument (see INTERNET_CONNECTION_* constants)
' 1=modem, 2=Lan, 4=proxy
' 8=modem busy with a non-internet connection

Function IsConnectedToInternet(Optional connectMode As Integer) As Boolean
Dim flags As Long
' this ASPI function does it all
IsConnectedToInternet = InternetGetConnectedState(flags, 0)
' return the flag through the optional argument
connectMode = flags
End Function