Private m_oXmlCfg As New MSXML.DOMDocument
Dim oNode As IXMLDOMNode
m_oXmlCfg.Load m_sXMLfile
Do
  DoEvents
Loop Until m_oXmlCfg.readyState = XML_LOAD_COMPLETE
Set oNode = oDom.selectSingleNode("//editform[@name=""" & _
 "myformdetails" & """]")
Skip Navigation Links.

Perulangan (Looping)                                                                                                                                                                                                                   

Private Sub Command1_Click()
  For i = 1 To 10
      Picture1.Print i;
  Next i
End Sub
'-----------------


Private Sub Command2_Click()
  Do i = i + 1
      Picture2.Print i; 
  Loop Until i = 10
End Sub
'-------------------


Private Sub Command3_Click()
  While i < 10
      i = i + 1
      Picture3.Print i;
Wend
End Sub
'---------------------


Private Sub Command4_Click()
   Do While i < 10
      i = i + 1
      Picture4.Print i;
    Loop
End Sub
'------------------------


Private Sub Command5_Click()
   Do i = i + 1
      Picture5.Print i; 
      If i = 10 Then Exit Do 
   Loop
End Sub


download kode di sini
                                                                                                                                                                                           
HyperLink Share 
Mau punya penghasilan? ikuti program-program di bawah ini:
xbasicpro.com
Diuskusi Visual Basic
Subscribe to xbasicpro_vb

Powered by us.groups.yahoo.com
counter sejak 5 april 2010

  (C)XBasicPro | XBasicPro di Facebook