Skip to content

Instantly share code, notes, and snippets.

@facebookegypt

facebookegypt/gist:5129642

Created March 10, 2013 17:53
Show Gist options
  • Save facebookegypt/5129642 to your computer and use it in GitHub Desktop.
Save facebookegypt/5129642 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.vb
'General Declaration
Dim TxtCtrl As Control
Private Sub ClearTxtBox()
For Each TxtCtrl In Me.Controls
If TypeOf TxtCtrl Is TextBox Then
TxtCtrl.Text = Trim("")
End If
Next
Timg.Picture = LoadPicture(App.Path & "/Phone1.Jpg")
End Sub
Private Sub CmdRes_Click()
'Reset Button
'Call the pre-defined sub ClearTextBox
ClearTxtBox
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment