hi every body,
here is a program to Send SMS from a windows Apllication
the code is very easy to understand

there is the code(enjoy):

but I have a small problem:
when I put the code in a module an error appeared saying:

Additional information: It is invalid to start a second message loop on a single thread. Use Application.RunDialog or Form.ShowDialog instead.

and when I put the same Code in a button,an other error appeared sayiny:

Additional information: It is invalid to start a second message loop on a single thread. Use Application.RunDialog or Form.ShowDialog instead.

also,when I tried to register the ASMS.dll file using regsvr32 command an error appeared saying:

C:\WINDOWS\system32\ASmsCtrl.dll was loaded but the dllregister server entry piont was not found,the file cannot be registered

SO what is the problem?

the code that i used:

' You need the freeware ASMSCTRL.DLL to run the sample.
' Download it from http://www.vahland.com/pub/asmsctrl.dll
' and register it on your machine.
' Then, choose 'Add Reference' from your Solutions Window,
' and add the ActiveSocket Type Library.
'
' Read http://www.vahland.com/pub/asmsctrl.htm for more info.
Imports ASMSCTRLLib
Module Module1
Sub Main()
Dim objSmsTool As ASMSCTRLLib.SMSC
Dim strReceived As String
Dim nCounter As Integer
Console.WriteLine("Be sure To have the freeware asmsctrl.dll registered on your system,")
Console.WriteLine("and add the 'ActiveXperts SMS and Pager Toolkit' to your references.")
Console.WriteLine("")
Console.WriteLine("This sample connects through a SMSC service provider to send out the SMS message")
Console.WriteLine("Please check out www.activexperts.com/activsms/smsclist for a complete list of SMSC providers world wide")
Console.WriteLine("")
objSmsTool = New ASMSCTRLLib.SMSCClass()
objSmsTool.PortID = 3
objSmsTool.MessageText = "Hello, this is a test message"
objSmsTool.Recipient = "0624896641"
objSmsTool.ProviderDialString = "0,0653141414" ' The SMSC provider
Console.WriteLine("Sending message...")
objSmsTool.SendMessage(True)' TRUE means: through service provider
If objSmsTool.LastError = 0 Then
' YES, connection established.
Console.WriteLine("Message successfully delivered")
Else
Console.WriteLine("Message delivery failed, error: " + objSmsTool.LastError)
End If
End Sub
End Module

the application and the DLL file are attached

Please help me? :confused: