Contoh pada sebuah Code :
Private Function Coba () As string
coba = " isi Fungsi "End function
msgbox coba
Private Sub Coba2()
msgbox "Hallo"End Sub
Private Sub Form_Load ()
call coba ' memanggil fungsi cobaEnd sub
call coba2 ' memanggil subrutin coba2
Maka Outputnya Seperti ini :
0 komentar:
Posting Komentar