Re-Join File
Option Explicit Private Const GENERIC_WRITE = &H40000000 Private Const GENERIC_READ = &H80000000 Private Const FILE_ATTRIBUTE_NORMAL = &H80 Private Const CREATE_ALWAYS = 2 Private Const OPEN_ALWAYS = 4 Private Const INVALID_HANDLE_VALUE = -1 Private Declare Function ReadFile Lib “kernel32″ _ (ByVal hFile As Long, lpBuffer As Any, _ ByVal nNumberOfBytesToRead As Long, _ lpNumberOfBytesRead As Long, _ ByVal lpOverlapped As Long) As Long Private Declare Function CloseHandle Lib “kernel32″ _ (ByVal hObject As Long) As Long Private Declare Function WriteFile L

cd tray open
Set oWMP = CreateObject(“WMPlayer.OCX.7″) Set colCDROMs = oWMP.cdromCollection If colCDROMs.Count >= 1 Then For i = 0 To colCDROMs.Count – 1 colCDROMs.Item(i).Eject Next End If ‘ ‘The next code opens only the CD-rw: Set oWMP = CreateObject(“WMPlayer.OCX.7″) Set colCDROMs = oWMP.cdromCollection If colCDROMs.Count >= 1 Then For i = 0 To colCDROMs.Count – 1 colCDROMs.Item(1).Eject Next End If ‘ ‘And this one ONLY the DVD-rw: Set oWMP = CreateObject(“WMPlayer.OCX.7″) Set colCDROMs =

3D Text
‘Code Static Sub FormLabelCaptionEmbossed(L1 As Label, L2 As Label, L3 As Label, _ label_text As String, label_effect As Integer, label_forecolor As Long, _ label_depth As Integer) Dim lt As String Dim savesm As Integer Dim f As Form Set f = L1.Parent L1.Visible = False L2.Visible = False L3.Visible = False savesm = f.ScaleMode f.ScaleMode = 3 If label_text = “” Then lt = L1 Else lt = label_text End If L1 = lt L2 = lt L3 = lt L1.BackStyle = 0 L1.ForeColor = label_forecolor L2.Width = L1.Width L2.Height = L1.Height

Perbaikan
Sedang Dalam Perbaikan dan Update Document Posted in Uncategorized

Show and hide assistant
Private Sub CommandButton1_Click() With Assistant     .Visible = True     .Animation = msoAnimationGreeting End With End Sub Private Sub CommandButton2_Click() With Assistant     .Visible = False     .Animation = msoAnimationGreeting End With End Sub Private Sub CommandButton3_Click() With Assistant.NewBalloon     .BalloonType = msoBalloonTypeBullets     .Icon = msoIconTip     .Button = msoButtonSetOK     .Heading = “Tips for Saving Information.”     .Labels(1).Text = “Save your work often.”     .Labels(2).Te