Showing posts with label mesuji raya. Show all posts
Showing posts with label mesuji raya. Show all posts

Wednesday, February 15, 2012

Edit View css


EDIT HTML Editor


















© 2009, All Rights Reserved. HTML Editor by servicegendoncorporation



Saturday, November 26, 2011

tips trik

Apakah Anda tahu URL yang dalam atribut HTML dapat ditetapkan sebagai protokol relatif? Aku tidak, sampai aku menemukan sesuatu seperti ini dalam kode orang lain saya membaca dengan teliti:






Pada awalnya saya pikir ini adalah kesalahan, mungkin semacam copy-paste kesalahan. Tapi aku segera tahu bahwa ini adalah trik bagus untuk memungkinkan sumber daya (gambar, script, dll) untuk memuat lebih dari apapun protokol halaman yang berisi menggunakan, baik http:or https:.



Bagaimana ini berguna? Ini memastikan sumber daya eksternal Anda tidak akan menghasilkan "konten campuran" peringatan setiap kali halaman dibuka atas (https:) mengamankan sambungan. Hal ini terutama jelas di IE, setiap kali halaman aman berisi referensi ke sumber daya tidak aman.

click pengunjung

membuat pengunjung click memang mudah apa lagi ki ta tinggal pasang aja scrip ini sebelum










Real Time Web Analytics




java programming 1




/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
/**
* @author gendon
*/
public class Tensis extends MIDlet implements CommandListener {

private Command keluarCmd = new Command ("Keluar", Command.EXIT,1);
private Command prosesCmd = new Command ("Proses",Command.OK,2);
private Command kembaliCmd = new Command ("Kembali",Command.BACK,2);
private Command calcelcmd =new Command ("cancel",Command.CANCEL,3);
private Form f;
private ChoiceGroup cg;
private Ticker animasiku;

public void startApp() {
cg = new ChoiceGroup ("Pilih Tensis", Choice.EXCLUSIVE);
f = new Form("Kamus bahasa inggris");
cg.append("(1) .Present Tense",null);
cg.append("(2) .Past tense",null);
cg.append("(3) .Present countinous tense",null);
cg.append("(4) .Past Continous Tense", null);
cg.append("(5) .Presen Future Tense", null);
cg.append("(6) .Present pervect tense",null);
cg.append("(7) .Past pervect tense",null);
cg.append("(8) .Present pervect continous tense",null);
cg.append("(9) .Past Future Perfect continous tense", null);
cg.append("(10).Past Perfect continous tense", null);
cg.append("(11).Future continous tense",null);
cg.append("(12).Past Future continous tense",null);
cg.append("(13).Future Perfect tense",null);
cg.append("(14).Past Future Perfect tense", null);
cg.append("(15).Past Future Perfect continous tense", null);
//cg.append("16. ",null);
f.append(cg);

//menambahkan obyek command
f.addCommand(keluarCmd);
f.addCommand(prosesCmd);
f.addCommand(calcelcmd);

// menghubungkan dengan perintah commandlistener

f.setCommandListener(this);
Display.getDisplay(this).setCurrent(f);

//---------------
animasiku=new Ticker("Kamus Bahasa dalam hp");
f.setTicker(animasiku);
}

public void proses() {
Form pf = new Form ("Proses data");
pf.append ("Pilihan Tensis :");
if (cg.isSelected(0))
{
pf.append (cg.getString(0));
pf.append ("A. S + Tobe (am,are,is)+non verb");
pf.append ("B. S + Verb 1(s/es)+ ..");
}

else if (cg.isSelected(1))
pf.append (cg.getString(1));
if (cg.isSelected(1))
{
pf.append (cg.getString(1));
pf.append ("A. S + Tobe (was,were) + Nonverb + ...");
pf.append ("B. S + verb 2 + ...");
}
else if (cg.isSelected(2))
pf.append (cg.getString(2));
if (cg.isSelected(2))
{
pf.append (cg.getString(2));
pf.append ("A. S + Tobe (im,is,are) V1 (ing) :");
}
else if (cg.isSelected(3))
pf.append(cg.getString(3));
if (cg.isSelected(3))
{
pf.append(cg.getString(3));
pf.append("A. S + Tobe(was,were) + V1(ing) +... :");
}
else if (cg.isSelected(4))
pf.append(cg.getString(4));
if (cg.isSelected(4))
{
pf.append(cg.getString(4));
pf.append("A. S + Shall,Will + V1(be) +... :");
pf.append("B. S n + Tobe(im,is,are) + Going to + V1 + ...:");
}

else if (cg.isSelected(5))
pf.append(cg.getString(5));
if (cg.isSelected(5))
{
pf.append(cg.getString(5));
pf.append("A. S + Should,Would + V1(be) :");
}
else if (cg.isSelected(6))
pf.append(cg.getString(6));
if (cg.isSelected(6))
{
pf.append(cg.getString(6));
pf.append("A. S + Have,Has + V#(been)+... :");
}
else if (cg.isSelected(7))
pf.append(cg.getString(7));
if (cg.isSelected(7))
{
pf.append(cg.getString(7));
pf.append("A. S + Had + V3(been) +... :");
}
else if (cg.isSelected(8))
pf.append(cg.getString(8));
if (cg.isSelected(8))
{
pf.append(cg.getString(8));
pf.append("A. S + Have + Been + V1(ing) + ... :");
}
else if (cg.isSelected(9))
pf.append(cg.getString(9));
if (cg.isSelected(9))
{
pf.append(cg.getString(9));
pf.append("A. S + Has + Been + V1(ing) +... :");
}
else if (cg.isSelected(10))
pf.append(cg.getString(10));
if (cg.isSelected(10))
{
pf.append(cg.getString(10));
pf.append("A. S + Shall,will + Be + V1(ing) +... :");
}
else if (cg.isSelected(11))
pf.append(cg.getString(11));
if (cg.isSelected(11))
{
pf.append(cg.getString(11));
pf.append("A. S + Shoul,Would + Be + V1(ing) +... :");
}
else if (cg.isSelected(12))
pf.append(cg.getString(12));
if (cg.isSelected(12))
{
pf.append(cg.getString(12));
pf.append("A. S + Shall,Will + Have + V1(been) +... :");
}
else if (cg.isSelected(13))
pf.append(cg.getString(13));
if (cg.isSelected(13))
{
pf.append(cg.getString(13));
pf.append("A. S + Should,Would + Have + V3(been) +... :");
}
else if (cg.isSelected(14))
pf.append(cg.getString(14));
if (cg.isSelected(14))
{
pf.append(cg.getString(14));
pf.append("A. S + Should,Would + Have + Been + V1(been) +... :");
}

pf.addCommand (kembaliCmd);
pf.setCommandListener(this);
Display.getDisplay(this).setCurrent(pf);
}

public void commandAction (Command c,Displayable d) {
String data = c.getLabel();
if (data == null ? "Keluar" == null : data.equals("Keluar")) {
destroyApp(false);
notifyDestroyed(); //keluar();
} else if (data == null ? "Proses" == null : data.equals("Proses")) {
proses();
} else if (data == null ? "Kembali" == null : data.equals("Kembali")) {
startApp();

}
else if (data == null? "proces" == null: data.equals(c)){
//awal();
}
}

protected void destroyApp(boolean u){}


protected void pauseApp()
{ }

}











java programming 1


import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;

public class kumpulan extends MIDlet implements CommandListener {
private Command keluarCmd = new Command ("Keluar", Command.EXIT,1);
private Command prosesCmd = new Command ("Proses",Command.OK,2);
private Command kembaliCmd = new Command ("Kembali",Command.BACK,2);
private Command calcelcmd =new Command ("cancel",Command.CANCEL,3);
private Form f;
private ChoiceGroup cg;
private Ticker animasiku;

public void startApp() {
cg = new ChoiceGroup ("Pilih Doa", Choice.EXCLUSIVE);
f = new Form("Program Doa Harian");
cg.append("Doa Makan",null);
cg.append("Doa Tidur",null);
cg.append("Doa Masuk Masjid",null);
cg.append("Doa keluar Masjid", null);
cg.append("Doa keluar Rumah", null);
f.append(cg);

//menambahkan obyek command
f.addCommand(keluarCmd);
f.addCommand(prosesCmd);
f.addCommand(calcelcmd);

// menghubungkan dengan perintah commandlistener

f.setCommandListener(this);
Display.getDisplay(this).setCurrent(f);

//---------------
animasiku=new Ticker("Program Doa-Doa ");
f.setTicker(animasiku);
}

public void proses() {
Form pf = new Form ("Proses data");
pf.append ("Pilihan Doa :");
if (cg.isSelected(0))
{
pf.append (cg.getString(0));
pf.append ("Allahumma barikhlana fimma rozaktana wakina adza bannaar");
}

else if (cg.isSelected(1))
pf.append (cg.getString(1));
if (cg.isSelected(1))
{
pf.append (cg.getString(1));
pf.append ("Bismikalloh allahumma akhyawabizmika amudz");
}
else if (cg.isSelected(2))
pf.append (cg.getString(2));
if (cg.isSelected(2))
{
pf.append (cg.getString(2));
pf.append ("ini adalah doa masuk masjid, silahkan baca :");
}
else if (cg.isSelected(3))
pf.append(cg.getString(3));
if (cg.isSelected(3))
{
pf.append(cg.getString(3));
pf.append("ini adalah doa keluar masjid, silahkan baca :");
}
else if (cg.isSelected(4))
pf.append(cg.getString(4));
if (cg.isSelected(3))
{
pf.append(cg.getString(4));
pf.append("ini adalah doa keluar Rumah , silahkan baca :");
}


pf.addCommand (kembaliCmd);
pf.setCommandListener(this);
Display.getDisplay(this).setCurrent(pf);
}

public void commandAction (Command c,Displayable d) {
String data = c.getLabel();
if (data == null ? "Keluar" == null : data.equals("Keluar")) {
destroyApp(false);
notifyDestroyed(); //keluar();
} else if (data == null ? "Proses" == null : data.equals("Proses")) {
proses();
} else if (data == null ? "Kembali" == null : data.equals("Kembali")) {
startApp();

}
else if (data == null? "proces" == null: data.equals(c)){
//awal();
}
}

protected void destroyApp(boolean u){}


protected void pauseApp()
{ }

}


java programming

/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/
package hello;

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;
//import javax.microedition.m3g.Appearance;

/**
* @author gendon
*/
public class doa_hari extends MIDlet implements CommandListener {
private Display layar;
private Alert peringatan;
private Ticker animasi;
private Command keluar;
private ChoiceGroup pilih;
private Form frm;
private Boolean proses;

//private Alert alert = new Alert("Pesanku");



public doa_hari(){
pilih = new ChoiceGroup ("Pilih Doa", Choice.EXCLUSIVE);
frm = new Form("Program Doa Sehari-hari");
keluar = new Command("Exit", Command.EXIT, 0);
animasi = new Ticker("Doa Sehari-hari");
peringatan = new Alert("Are you Like");


}


public void startApp() {
frm.setTicker(animasi);

//alert.setType(AlertType.WARNING);
//alert.setString("hai...");


pilih.append("Doa Sebelum Makan", null);
pilih.append("Doa Sesudah Makan", null);
pilih.append("Doa Sebelum Tidur", null);
pilih.append("Doa Sesudah Tidur", null);
frm.append(pilih);

frm.addCommand(keluar);
frm.setCommandListener(this);

peringatan.setType(AlertType.WARNING);
peringatan.setString("Kumpulan Do'a-Do'a");
layar = Display.getDisplay(this);
layar.setCurrent(peringatan,frm);

}

public void pauseApp() {
}

public void destroyApp(boolean unconditional) {
notifyDestroyed();
}

public void commandAction (Command s, Displayable d){
notifyDestroyed();
}


}

Saturday, November 19, 2011

pengecekan blog pada google

beberapa lama berkenalan dan latihan blog yang gratis (free) membuat waktu semakin cepat karena smua pikiran dan imajinasi selalu ada tapi ada kalanya blog kita bisa di index sama google atau tidak tinggal cek
masuk google.com /google.co.id
masukan "site:http://site-anda-" di kolom pencarian dan lihat hasilnya





















dan ini hasl dari pengecekan ke mesin pencarian 
disaran kan apa bila membuat blog atau web agar selalu muncul di mesin pencarian nama dan url yang anda gunakan sinkron dengan isi data (posting)

mesoga membantu <salam gendon masih pecundang jomblo>

Sunday, November 6, 2011

pdf di vb

buat form dan pastikan anda mempunyai ocx dari pdf karena untuk membuka pdf perlu komponen lagi tidak asal buka









<table><tr><td>
private sub command1_click()
CommonDialog1.Filter = "*.pdf|*.pdf"
CommonDialog1.ShowOpen
AcroPDF1.src = CommonDialog1.FileName

end sub

</td></tr></table>

click kanan mati

jangan lupa taruk di bawah tag
<head>

langsung copas javascrip di bawah ini

<table border=”1″><tr><td>
    <!--Matikan Klik Kanan -->


<script language='JavaScript'>
<!--
/*
No rightclick script v.2.5
(c) 1998 barts1000
barts1000@aol.com
Don't delete this header!
*/

var message="Sorry, that function is disabled.\nThis Page Copyrighted and\nImages and Text protected!\nALL RIGHTS RESERVED";

// Don't edit below!

function click(e) {
if (document.all) {
if (event.button == 2) {
alert(message);
return false;
}
}
if (document.layers) {
if (e.which == 3) {
alert(message);
return false;
}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown=click;
// -->

</script>


 
<!-- Disable Copy and Paste-->
<script language='JavaScript1.2'>
function disableselect(e){
return false
}
function reEnable(){
return true
}
document.onselectstart=new Function (&quot;return false&quot;)
if (window.sidebar){
document.onmousedown=disableselect
document.onclick=reEnable
}
</script>
</td></tr></table>


tabel di blog

masuk di blog dulu , new post => biasanya compose ganti aja edit html setelah tulisan yang kita inginkan masukan kode

satu kolom

<table border=”1″><tr><td>Nama Sahabat</td></tr></table>

Nama Sahabat


dua kolom

<table border=”1″ width=”300″> <tr><td>Nama Sahabat</td><td>Hoby</td></tr> </table>

Nama SahabatHoby



3 kolom

<table border=”1″ width=”300″>
<tr bg#3366ff”>#E0F8E0″>
<td align=”center”>
<b>Nama</b></td><td align=”center”><b>Kelas</b></td><td align=”center”><b>website</b></td>
</tr><tr><td align=”center”>A</td><td align=”center”>6</td><td align=”left”>http://blog.umy.ac.id/tutorialblogging/</td></tr>
<tr><td align=”center”>A</td><td align=”center”>6</td><td align=”left”>http://blog.umy.ac.id/tutorialblogging/</td></tr>
<tr><td align=”center”>A</td><td align=”center”>6</td><td align=”left”>http://blog.umy.ac.id/tutorialblogging/</td></tr>
<tr><td align=”center”>A</td><td align=”center”>6</td><td align=”left”>http://blog.umy.ac.id/tutorialblogging/</td></tr>
</table>






Nama
Kelaswebsite
A6http://blog.umy.ac.id/tutorialblogging/
A6http://blog.umy.ac.id/tutorialblogging/
A6http://blog.umy.ac.id/tutorialblogging/
A6http://blog.umy.ac.id/tutorialblogging/

uji coba

contoh trial vb project 


<table border=”1″><tr><td> 
If isDemo = True Then
Dim i As Date
i = Date
If Year(i) <> 2011 Then 'Month(i) <> 7 Then
For Each control In Me.Controls
If TypeOf control Is XPButton Then
control.Enabled = False
End If
Next control
Else
If Month(i) <> 9 Then
TbSIMPAN.Enabled = False
TbBersih.Enabled = False
TBEXIT.Enabled = True
End If
End If
End If

 ></td></tr></table>

vb dan source

http://ifile.it/f9zj2as     latihan tryal dengan VB

http://www.ocxdump.com/     kumpulan OCX

7 segmen VB


http://www.a1vbcode.com/

register OCX
 buka run dan ketikan ini
 
regsvr32 D:\Data\Programq\nama_OCX_yang_akan_diregister.ocx"











hecking

Net Tools 5.0 (build 70) contains a whole variety of network tools. Here is a list of the most important tools:

1) IP Address Scanner
2) IP Calculator
3) IP Converter
4) Port Listener
5) Port Scanner
6) Ping
7) NetStat (2 ways)
8) Trace Route (2 ways)
9) TCP/IP Configuration
10) Online - Offline Checker
11) Resolve Host & IP
12) Time Sync
13) Whois & MX Lookup
14) Connect0r
15) Connection Analysator and protector
16) Net Sender
17) E-mail seeker
18) Net Pager
19) Active and Passive port scanner
20) Spoofer
21) Hack Trapper
22) HTTP flooder (DoS)
23) Mass Website Visiter
24) Advanced Port Scanner
25) Trojan Hunter (Multi IP)
26) Port Connecter Tool
27) Advanced Spoofer
28) Advanced Anonymous E-mailer
29) Simple Anonymous E-mailer
30) Anonymous E-mailer with Attachment Support
31) Mass E-mailer
32) E-mail Bomber
33) E-mail Spoofer
34) Simple Port Scanner (fast)
35) Advanced Netstat Monitoring
36) X Pinger
37) Web Page Scanner
38) Fast Port Scanner
39) Deep Port Scanner
40) Fastest Host Scanner (UDP)
41) Get Header
42) Open Port Scanner
43) Multi Port Scanner
44) HTTP scanner (Open port 80 subnet scanner)
45) Multi Ping for Cisco Routers
46) TCP Packet Sniffer
47) UDP flooder
48) Resolve and Ping
49) Multi IP ping
50) File Dependency Sniffer
51) EXE-joiner (bind 2 files)
52) Encrypter
53) Advanced Encryption
54) File Difference Engine
55) File Comparasion
56) Mass File Renamer
57) Add Bytes to EXE
58) Variable Encryption
59) Simple File Encryption
60) ASCII to Binary (and Binary to ASCII)
61) Enigma
62) Password Unmasker
63) Credit Card Number Validate and Generate
64) Create Local HTTP Server
65) eXtreme UDP Flooder
66) Web Server Scanner
67) Force Reboot
68) Webpage Info Seeker
69) Bouncer
70) Advanced Packet Sniffer
71) IRC server creater
72) Connection Tester
73) Fake Mail Sender
74) Bandwidth Monitor
75) Remote Desktop Protocol Scanner
76) MX Query
77) Messenger Packet Sniffer
78) API Spy
79) DHCP Restart
80) File Merger
81) E-mail Extractor (crawler / harvester bot)
82) Open FTP Scanner
83) Advanced System Locker
84) Advanced System Information
85) CPU Monitor
86) Windows Startup Manager
87) Process Checker
88) IP String Collecter
89) Mass Auto-Emailer (Database mailer; Spammer)
90) Central Server (Base Server; Echo Server; Time Server; Telnet Server; HTTP Server; FTP Server)
91) Fishing Port Scanner (with named ports)
92) Mouse Record / Play Automation (Macro Tool)
93) Internet / LAN Messenger Chat (Server + Client)
94) Timer Shutdown/Restart/Log Off/Hibernate/Suspend/ Control
95) Hash MD5 Checker
96) Port Connect - Listen tool
97) Internet MAC Address Scanner (Multiple IP)
98) Connection Manager / Monitor
99) Direct Peer Connecter (Send/Receive files + chat)
100) Force Application Termination (against Viruses and Spyware)
101) Easy and Fast Screenshot Maker (also Web Hex Color Picker)
102) COM Detect and Test
103) Create Virtual Drives
104) URL Encoder
105) WEP/WPA Key Generator
106) Sniffer.NET
107) File Shredder
108) Local Access Enumerater
109) Steganographer (Art of hiding secret data in pictures)
110) Subnet Calculater
111) Domain to IP (DNS)
112) Get SNMP Variables
113) Internet Explorer Password Revealer
114) Advanced Multi Port Scanner
115) Port Identification List (+port scanner)
116) Get Quick Net Info
117) Get Remote MAC Address
118) Share Add
119) Net Wanderer
120) WhoIs Console
121) Cookies Analyser
122) Hide Secret Data In Files
123) Packet Generator
124) Secure File Splitting
125) My File Protection (Password Protect Files, File Injections)
126) Dynamic Switch Port Mapper
127) Internet Logger (Log URL)
128) Get Whois Servers
129) File Split&Merge
130) Hide Drive
131) Extract E-mails from Documents
132) Net Tools Mini (Client/Server, Scan, ICMP, Net Statistics, Interactive, Raw Packets, DNS, Whois, ARP, Computer's IP, Wake On LAN)
133) Hook Spy
134) Software Uninstaller
135) Tweak & Clean XP
136) Steganographic Random Byte Encryption
137) NetTools Notepad (encrypt your sensitive data)
138) File Encrypter/Decrypter
139) Quick Proxy Server
140) Connection Redirector (HTTP, IRC, ... All protocols supported)
141) Local E-mail Extractor
142) Recursive E-mail Extractor
143) Outlook Express E-mail Extractor
144) Telnet Client
145) Fast Ip Catcher
146) Monitor Host IP
147) FreeMAC (MAC Address Editor)
148) QuickFTP Server (+user accounts support)
149) NetTools Macro Recorder/Player (Keybord and Mouse Hook)
150) Network Protocol Analyzer
151) Steganographic Tools (Picture, Sounds, ZIP Compression and Misc Methods)
152) WebMirror (Website Ripper)
153) GeoLocate IP
154) Google PageRank Calculator
155) Google Link Crawler (Web Result Grabber)
156) Network Adapter Binder
157) Remote LAN PC Lister
158) Fast Sinusoidal Encryption
159) Software Scanner
160) Fast FTP Client
161) Network Traffic Analysis
162) Network Traffic Visualiser
163) Internet Protocol Scanner
164) Net Meter (Bandwidth Traffic Meter)
165) Net Configuration Switcher
166) Advanced System Hardware Info
167) Live System Information
168) Network Profiler
169) Network Browser
170) Quick Website Maker and Web Gallery Creator
171) Remote PC Shutdown
172) Serial Port Terminal
173) Standard Encryptor
174) Tray Minimizer
175) Extra Tools (nmap console & win32 version)

Many extra features and utilities are included in this package!

Net Tools is freeware. If you enjoyed using Net Tools and found it useful or it helps you in your work - please consider donating any amount to support and help to create new versions.

Download Net Tools 5.0

[ download : http://www.mabsoft.com/NetTools5.0.70.zip ] (version 5.0.70)



http://memoryhacking.com/download.php

belajar vb dan sejenisnya

salam mempelajari ilmu pasti kita perlu dan butuh refrensi agar bagus dan membuat ide-ide yang cemerlang
disini saya mencoba memberi link  VB dan sebagai nya dalam membuat program

BUKU VB
http://www.mediafire.com/?ow0xywr29gkul2c        




BUKU CRISTAL REPORT
http://www.4s.io/file/NF9mbPde/Tutorial_Penggunaan_Crystal_Re.html


 FB OPEN SOURCE VB DAN LAIN-LAIN
 https://www.facebook.com/groups/177605925644909/doc/208149965923838/


CONTOH APLIKASI ABSENSI KARYAWAN

http://www.4s.io/file/srp7AuY5/Program_Absensi_Karyawan_Denga.html

 CONNEKSI SQL
http://www.fryan0911.com/2009/05/vbnet-how-to-connect-to-sql-server.html




http://www.4s.io/get/3sRKQPGn/EXE_Protector_v12.html 

error pada data base

sering kali data base tidak bisa di buka di komputer lain atau sejenisnya karena tidak suport dan komponen2 yang kita gunakan sebelumnya tidak ada untuk mengakali

masalah di ambil di Fb
Mas/om/bg/
ada yg tw bgaimana mendeteksi nama komputer & nama sql bawaan vb 2008,
permasalahanya saya buat database menggunakan sql yg ada di vb 08, ketika saya berpindah komputer program yg saya buat itu tdk bisa jalan alias tdk bsa di proses.
Klw ada yg tw kasih tw solusi donk,,?
Tks.

jawabannya

dim komp as object

set komp = CreateObject("WScript.Shell")
komp = Reg.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName")

msgbox "Nama Komputer : " & komp,vbinformation,"info">


Saturday, November 5, 2011

membersihkan textbox

<table border="”1″"><tbody>
<tr><td>
cara 1 

Sub kosong()
Text1.Text = ""
Text2.Text = ""
End Sub

tinggal panggil di commend buten yang di inginkan

cara 2
Public Sub ClearTextBoxes(frmClearMe As Form)
Dim txt As Control
For Each txt In frmClearMe
If TypeOf txt Is TextBox Then txt.Text = ""
Next
End Sub


panggil  call ClearTextBoxes(me)
</td></tr>
</tbody></table>