يېڭى كۆزنەكنى ئېچىش كودى

Form2.show  

تور بەت ئۇلىنىش كودى:

StartURL "htp://www.xjcfan.com" 

ياكى

shell "explorer.exe http://www.xjcfan.com" 

كۆزنەكتىن چېكىنگەندە چېكىنىش ئەسكەرتمە ئۇچۇرى چىقىرىش كودى:

Private Sub form_queryunload(cancel As Integer, unloadmode As Integer)   
Dim myval As Integer   
myval = MsgBox("Rastinla Chekinemsiz?", vbYesNo, "Eskertish")   
If myval = vbYes Then   
End   
Else   
cancel = 1   
End If   
End Sub  
 

ئەسكەرتمە ئۇچۇر چىقىرىش كودى

MsgBox "Design Shahdiyarsoft Linkman Alimjan"

(شاھدىيارسوفتنىڭ ئالاھىدە ئىجازىتى بىلەن يوللاندى)

ئالاھىدە ئەسكەرتىش : بېكىتىمىز ئەسەرلىرى (دەرسلىك، ماقالە، تەرجىمە، يۇمشاق دېتال قاتارلىقلار) باشقا تور بېكەتلەردە ئېلان قىلىنماقچى بولسا، چوقۇم مەنبەسى، ئاپتورى، تەرجىمە ئاپتورى، تەييارلىغۇچى قاتارلىق ئىگىدارچىلىق ھوقۇقىغا ئائىت ئۇچۇرلار ئېنىق ئەسكەرتىلگەن ھالدا ئېلان قىلىنىشىنى قەتئىي تەلەپ قىلىمىز.