Ciao sono Valerio

ho bisogno di aiuto
La situazione è questa :

1)scrivo un sorgente con vb6,programma compilato con VB6,allego tutti i file .ocx richiesti.
2)lo sposto in un altro PC,con windows xp professional service pack2,lo installo,cioè estraggo il .exe e i 2 file .ocx comdlg32.ocx,mscomm32.ocx,nella cartella di sistema
3)si blocca quando chiamo l'oggetto mscomm e i metodi collegati,da error runtime 13,type mismatch

4)ti do il codice completo



'carica e visualizza la form di progressione del download

'---------------------------------------------------------------------'carica le form
'---------------------------------------------------------------------

Load Form2




Form2.Command1.Caption = Form2_Button_Cancel_Caption(Global_Set_Language)
Form2.Caption = Form2_Caption_upload(Global_Set_Language)
Form2.Frame1.Caption = Form2_Frame1_Caption_upload(Global_Set_Language)
Form2.Label1.Caption = Form2_Label1_Caption_upload(Global_Set_Language)



Form2.Show

'response = MsgBox("OK fin qui1", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))



'--------------------------------------------------------------------
'apre la porta di comunicazione com1 di default
'---------------------------------------------------------------------

If Form1.MSComm1.PortOpen = False Then

'response = MsgBox("OK fin qui2", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

Form1.MSComm1.CommPort = Global_COMM_PORT ' use commport1 di default


'response = MsgBox("OK fin qui3", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

Form1.MSComm1.InputLen = 0 ' legge un byte alla volta

'response = MsgBox("OK fin qui4", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


Form1.MSComm1.RThreshold = 1 ' voglio essere informato della ricezione di ogni singolo byte

'response = MsgBox("OK fin qui5", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


Form1.MSComm1.Settings = "9600,n,8,1" ' 9600 baud 8 bit dati no parity 1 stop bit

'response = MsgBox("OK fin qui6", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


Form1.MSComm1.DTREnable = False

'response = MsgBox("OK fin qui7", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


Form1.MSComm1.RTSEnable = False


'response = MsgBox("OK fin qui8", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


'Abilito l'intercettazione degli errori

On Error GoTo ErrorCOMUpload

'response = MsgBox("OK fin qui9", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

Form1.MSComm1.PortOpen = True ' Apriamo la porta.<---qui ho l'errore di type mismatch,aiutoooooo!!!!

'response = MsgBox("OK fin qui10", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

GoTo OKOpenCOMUpload

ErrorCOMUpload:

response = MsgBox(ErrorOPENCOM(Global_Set_Language) + Form1.MSComm1.CommPort, vbOKOnly + vbCritical, DownloadMessageResult(Global_Set_Language))

GlobalStatusComunication = StopComunicationKB1

OKOpenCOMUpload:

End If

'response = MsgBox("OK fin qui11", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


index_bufferGlobal = BYTE_1_BUFFER

'response = MsgBox("OK fin qui12", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


'---------------------------------------------------------------------
'dimensione buffer di default
'---------------------------------------------------------------------

GlobalNumberPacketByte = 65000

'response = MsgBox("OK fin qui13", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


'---------------------------------------------------------------------
'variabile globale di accettazione pacchetto password
'---------------------------------------------------------------------

Global_Packet_Password = Start_Comunication_Password


'response = MsgBox("OK fin qui14", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


'---------------------------------------------------------------------
'variabile globale di start comunicazioni
'---------------------------------------------------------------------

Global_Status_download = Stop_download

'response = MsgBox("OK fin qui15", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


Global_Status_upload = Start_upload

'response = MsgBox("OK fin qui16", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


GlobalStatusComunication = UploadKB1

'response = MsgBox("OK fin qui17", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


'---------------------------------------------------------------------
'spedisce lo start message upload
'---------------------------------------------------------------------

If Not Transmitbyte(&HF1) Then

'response = MsgBox("OK fin qui18", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

response = MsgBox(UploadResult_TX(Global_Set_Language), vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

'response = MsgBox("OK fin qui19", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

Form1.MSComm1.PortOpen = False ' chiudiamo la porta la porta.

'response = MsgBox("OK fin qui20", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))


GlobalStatusComunication = StopComunicationKB1

'response = MsgBox("OK fin qui21", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

Unload Form2

'response = MsgBox("OK fin qui22", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

Exit Sub

End If

'---------------------------------------------------------------------
'attiva il timer di accensione comunicazioni
'---------------------------------------------------------------------
'response = MsgBox("OK fin qui23", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

Form1.Timer1.Interval = 5000

'response = MsgBox("OK fin qui24", vbOKOnly + vbCritical, UploadMessageResult(Global_Set_Language))

Form1.Timer1.Enabled = True

Grazie in anticipo x l'aiuto

ciao