Your Ad Here

advanced code snippet search

Posted By

sekihin on 06/09/09


Tagged

vb6


Versions (?)

MousePointer

 / Published in: Visual Basic
 
Expand | Embed | Plain Text 
  1. Private Sub cmdF7_Click()
  2.  
  3.     Dim aMsg$, aAns%
  4.  
  5.     If CheckInput() = False Then Exit Sub
  6.  
  7.     Me.MousePointer = vbHourglass
  8.  
  9.     Me.Enabled = False
  10.     StartConvert
  11.     Me.Enabled = True
  12.  
  13.     Me.MousePointer = vbDefault
  14.  
  15. End Sub

Report this snippet  

You need to login to post a comment.