<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	>

<channel>
	<title>Muhammad Ikhsan</title>
	<atom:link href="http://ichsan.indodesain.org/?feed=rss2" rel="self" type="application/rss+xml" />
	<link>http://ichsan.indodesain.org</link>
	<description>Let us share our knowledge</description>
	<pubDate>Mon, 06 Sep 2010 02:08:34 +0000</pubDate>
	<generator>http://wordpress.org/?v=2.5.1</generator>
	<language>en</language>
			<item>
		<title>Merubah Speed dari Windows Start Menu</title>
		<link>http://ichsan.indodesain.org/?p=89</link>
		<comments>http://ichsan.indodesain.org/?p=89#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:49:30 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=89</guid>
		<description><![CDATA[Untuk melakukannya kita membuat string baru pada windows registry dengan nama MenuShowDelay dengan nilai antara 1 s/d 1000, pada lokasi HKEY_CURRENT_USER\Control Panel\Desktop 
Pada module ketikan kode berikut ini: Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4   Declare Function ExitWindowsEx Lib &#8220;user32&#8243; (ByVal _
uFlags As Long, ByVal dwReserved As Long) As Long  [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=89</wfw:commentRss>
		</item>
		<item>
		<title>Mengaktifkan Screen Saver Menggunakan API</title>
		<link>http://ichsan.indodesain.org/?p=88</link>
		<comments>http://ichsan.indodesain.org/?p=88#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:49:00 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=88</guid>
		<description><![CDATA[Contoh dibawah ini adalah untuk mengaktifkan screen saver dari Visual Basic screen saver dengan mengirim Windows message kepada Control-menu box form. Microsoft Windows mengaktifkan screen savers melalui System-menu box form. System-menu box ini juga dikenal sebagai Control-menu box dalam Visual Basic. Kita dapat mengirim Windows messages kepada Control-menu box dengan menggunakan SendMessage Windows API (application [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=88</wfw:commentRss>
		</item>
		<item>
		<title>Register &#038; Unregister ActiveX Controls</title>
		<link>http://ichsan.indodesain.org/?p=87</link>
		<comments>http://ichsan.indodesain.org/?p=87#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:48:24 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=87</guid>
		<description><![CDATA[Ada dua fungsi untuk meregister &#38; unregister ActiveX Control yaitu DLLRegisterServer dan DLLUnregisterServer. Contoh program dibawah ini adalah untuk meregister dan unregister Microsoft Common Controls OCX, ComCtl32.OCX. Declarations Declare Function RegComCtl32 Lib &#8220;ComCtl32.OCX&#8221; _
Alias &#8220;DllRegisterServer&#8221; () As Long Declare Function UnRegComCtl32 Lib &#8220;ComCtl32.OCX&#8221; _
Alias &#8220;DllUnregisterServer&#8221; () As Long Const ERROR_SUCCESS = &#38;H0 Code 
Untuk register [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=87</wfw:commentRss>
		</item>
		<item>
		<title>Mengetahui Warna Title Bar</title>
		<link>http://ichsan.indodesain.org/?p=86</link>
		<comments>http://ichsan.indodesain.org/?p=86#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:47:56 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=86</guid>
		<description><![CDATA[Gunakan fungsi API GetSysColor dengan parameternya. Declare Function GetSysColor Lib &#8220;user32&#8243; Alias _
&#8220;GetSysColor&#8221; (ByVal nIndex As Long) As Long                   
Fungsi ini akan menghasilkan RGB value dari object.Misalnya jika anda ingin mengetahui warna dari form yang aktif. Gunakan [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=86</wfw:commentRss>
		</item>
		<item>
		<title>Merubah Warna Title Bar</title>
		<link>http://ichsan.indodesain.org/?p=85</link>
		<comments>http://ichsan.indodesain.org/?p=85#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:47:32 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=85</guid>
		<description><![CDATA[Declarasi fungsi API : Declare Function SetSysColors Lib &#8220;user32&#8243; Alias _
&#8220;SetSysColors&#8221; (ByVal nChanges As Long, lpSysColor As _
Long, lpColorValues As Long) As Long                    
Constants : Public Const COLOR_SCROLLBAR = 0 &#8216;The Scrollbar colour
Public Const COLOR_BACKGROUND = [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=85</wfw:commentRss>
		</item>
		<item>
		<title>Menambah Network Drive Pada Computer Anda</title>
		<link>http://ichsan.indodesain.org/?p=84</link>
		<comments>http://ichsan.indodesain.org/?p=84#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:47:04 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=84</guid>
		<description><![CDATA[Buka project baru dengan commandbutton, ketikan kode berikut ini: 
Option Explicit
Declare Function WNetAddConnection Lib &#8220;mpr.dll&#8221; Alias _
&#8220;WNetAddConnectionA&#8221; (ByVal lpszNetPath As String, _
ByVal lpszPassword As String, ByVal lpszLocalName _
As String) As Long 
Declare Function WNetCancelConnection Lib &#8220;mpr.dll&#8221; _
Alias &#8220;WNetCancelConnectionA&#8221; (ByVal lpszName _
As String, ByVal bForce As Long) As Long 
Const WN_SUCCESS = 0 &#8216; The function [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=84</wfw:commentRss>
		</item>
		<item>
		<title>Menampilkan Port Setting</title>
		<link>http://ichsan.indodesain.org/?p=83</link>
		<comments>http://ichsan.indodesain.org/?p=83#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:46:37 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=83</guid>
		<description><![CDATA[Buka project baru dan masukan commandbutton pada form1 dan ketikan kode beriku tini: 
Private Declare Function ConfigurePort _
Lib &#8220;winspool.drv&#8221; Alias &#8220;ConfigurePortA&#8221; _
(ByVal pName As String, ByVal hwnd As Long, _
ByVal pPortName As String) As Long
Private Sub Command1_Click()
    MsgBox ConfigurePort(&#8221;", Me.hwnd, &#8220;COM4&#8243;)
    MsgBox ConfigurePort(&#8221;", Me.hwnd, &#8220;LPT1&#8243;)
End Sub 
]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=83</wfw:commentRss>
		</item>
		<item>
		<title>Mencari Tahu Siapa User yang Login</title>
		<link>http://ichsan.indodesain.org/?p=82</link>
		<comments>http://ichsan.indodesain.org/?p=82#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:46:01 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=82</guid>
		<description><![CDATA[Declare Function GetUserName Lib &#8220;advapi32.dll&#8221; Alias _
&#8220;GetUserNameA&#8221; (ByVal lpBuffer As String, nSize As Long) _
As Long 
Dim s As String
Dim cnt As Long
Dim dl As Long
Dim CurUser as String
cnt = 199
s = String$(200, 0)
dl = GetUserName(s, cnt)
If dl &#60;&#62; 0 Then curuser = Left$(s, cnt) Else curuser = &#8220;&#8221;       [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=82</wfw:commentRss>
		</item>
		<item>
		<title>Rotating Text</title>
		<link>http://ichsan.indodesain.org/?p=81</link>
		<comments>http://ichsan.indodesain.org/?p=81#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:45:29 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=81</guid>
		<description><![CDATA[Use this subroutine to put text on your form or picture box at different angles. For vertically down, use the angle on 270, and vertically up, use the angle of 90. Declarations Public Declare Function CreateFont Lib _
&#8220;gdi32&#8243; Alias &#8220;CreateFontA&#8221; (ByVal _
Height As Long, ByVal Width As Long, _
ByVal Escapement As Long, ByVal _
Orientation As [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=81</wfw:commentRss>
		</item>
		<item>
		<title>Rotating Bitmap</title>
		<link>http://ichsan.indodesain.org/?p=80</link>
		<comments>http://ichsan.indodesain.org/?p=80#comments</comments>
		<pubDate>Sat, 19 Jan 2008 14:45:00 +0000</pubDate>
		<dc:creator>Ikhsan</dc:creator>
		
		<category><![CDATA[Tips Visual Basic]]></category>

		<guid isPermaLink="false">http://isungoql.indodesain.org/?p=80</guid>
		<description><![CDATA[Declarations Declare Function SetPixel Lib _
&#8220;gdi32&#8243; Alias &#8220;SetPixelV&#8221; _
(ByVal hdc As Long, ByVal x As
Long, ByVal y As Long, _
ByVal crColor As Long) As Long Declare Function GetPixel Lib _
&#8220;gdi32&#8243; (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long) As Long Code Public Sub rotateimage()
Dim x As Long
Dim y As Long
Picture2.Height = [...]]]></description>
		<wfw:commentRss>http://ichsan.indodesain.org/?feed=rss2&amp;p=80</wfw:commentRss>
		</item>
	</channel>
</rss>
