sending .bin file throught to coms port

Hi Guys,

Nice forum I'm a newbie and loving VB I like it so much I want to enroll to a course.

I have problem i need to send a .bin file approx 32k to 75k where user selects the file and then sent through the comport 1 to 4

// <DFM> TFORM1 = class(TForm);

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Bin Loader'
ClientHeight = 60
ClientWidth = 570
Color = clBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
DesignSize = (
570
60)
PixelsPerInch = 96
TextHeight = 13
object progress: TJvSpecialProgress
Left = 0
Top = 64
Width = 570
Height = 17
Align = alBottom
BorderStyle = bsNone
EndColor = clYellow
Solid = True
StartColor = clRed
end
object Button1: TButton
Left = 450
Top = 6
Width = 75
Height = 22
Caption = 'Load Bin'
TabOrder = 0
OnClick = Button1Click
end
object edtFilename: TJvFilenameEdit
Left = 8
Top = 6
Width = 250
Height = 21
Filter = 'bin File (*.bin)|*.bin|All files (*.*)|*.*'
FilterIndex = 0
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
end
object comPort: TComboBox
Left = 265
Top = 6
Width = 96
Height = 21
ItemHeight = 13
TabOrder = 2
Text = 'comPort'
OnChange = comPortChange
end
object Button2: TButton
Left = 370
Top = 6
Width = 75
Height = 22
Caption = 'Erase Bin'
TabOrder = 3
OnClick = Button2Click
end
object ComPort1: TComPort
BaudRate = br9600
Port = 'COM1'
Parity.Bits = prNone
StopBits = sbOneStopBit
DataBits = dbEight
Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
Buffer.InputSize = 2048
Buffer.OutputSize = 2048
FlowControl.OutCTSFlow = False
FlowControl.OutDSRFlow = False
FlowControl.ControlDTR = dtrDisable
FlowControl.ControlRTS = rtsDisable
FlowControl.XonXoffOut = False
FlowControl.XonXoffIn = False
Left = 608
Top = 8
end
end


how can i create this in vb2008


James