MSComm event doesn't fire

[×× ×¡×˜×¡×™×”]

i try to run a simple application in Visual Basic for transferring data via
serial port using MSComm library and non comm event fires.

no entry to "private sub MSComm1_OnComm() " subroutine

i set sending and receiving sides settings on MSComm1 to:
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True

Only if i call myself the _OnComm() subroutine the data passes.