236 Sub Main() 237 ' PicInfo main procedure 238 ' The program starts here 239 240 ' Store program title in global variable 241 ProgramTitle = App.Title 242 243 ' Show main form 244 PicForm.Show 245 246 End Sub 247 248 249