Подмена IP в пакете

Доброго времени суток уважаемые программисты.
Есть маленькая программа:

Private Sub Form_Load()
On Error Resume Next
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = "192.168.10.20"
Winsock1.RemotePort = "2345"
Winsock1.Connect
Winsock1.SendData "test"
Winsock1.Close
End Sub

Запускаем программу с машины с адресом 192.168.20.30 и смотрим что пишет фаервол на машине с адресом 192.168.10.20
А он пишет что получил пакет весом в 2 bytes c IP адреса "192.168.20.30".
Вроде все верно :)
Вопрос к окружению:
Как подменить IP в пакете на IP адрес к примеру "192.168.10.20"?
Что добавить в код?
Чтобы фаер видел пакет пришедший с его же IP. Или с любого другого.
Благодарю за ответы.