Creating the GUI for twitter client

We will use in this project controls: 2x StaticText, 1x TextArea, 1x TextField and 2x PushButton. Try to get results close to the screenshot below. Change in StaticText1 -> Appearance -> Text Value to What are you doing? and in StaticText2 change text to 140 and the Font to bold style. In TextArea1 change the property LimitText value to 140 (this way we will add a limit for character in this control). On bottom insert PushButton1 control and change it Caption to “Update on twitter”. Add also one TextField for our URL and one PushButton2 control with Caption “Insert Short URL”. You should get something like that:

Count remaining characters…

Twitter allows using only 140 characters per update so we will create a character counter in our application. Go to TextArea1 Sub TextChange() and insert there the code.

1

StaticText2.Text = CStr(140 - Len(TextArea1.Text))

CStr function converts the number to string and in () we count how many characters are left in our TextArea1 control. Len function give us how many character are in TextArea1 control.