Hai Agus,
hilangkan kurungnya jadi
Private Sub Txtbarcode_GotFocus()
   Block Txtbarcode
End Sub
Btw : info ya kalo dapet kbar dari yg di nusa dua ????
:D
regards,
Padu Arsana iW
 


Agus Sudana <[EMAIL PROTECTED]> wrote:
salam semua,
sewaktu saya buat procedure berikut:
Sub Block(xObjek As TextBox)
xObjek.SelStart = 0
xObjek.SelLength = Len(xObjek.Text)
End Sub

dan coba saya panggil pada event got_focus:
Private Sub Txtbarcode_GotFocus()
Block (Txtbarcode)
End Sub

ada muncul error "Type Mismatch",
kira2 ada solusi..??
need help.. please..
thanx..
salam
-agus-

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com


Do you Yahoo!?
Get on board. You're invited to try the new Yahoo! Mail. __._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer





SPONSORED LINKS
Indonesia phone card Programmer Indonesia tour
Indonesia travel Indonesia flower

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Kirim email ke